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Redactioneel 



Het rommelt wat af in computerland. . . Niet alleen 
op technisch gebied, maar vooral ook op organisato- 
risch en bedrijfstechnisch gebied. Zo las ik een aan- 
tal weken terug het bericht dat IBM het helemaal 
gehad heeft met de IBM/PC... zo erg zelfs dat ze 
hem zelf gaan klonen. Er zou een overeenkomst met 
een Aziatische klonenbakker zijn aangegaan die de 
nieuwe IBM-klonen gaat maken. Er komt alleen 
geen IBM-merkje op; dat gaat de hoge heren van 
IBM waarschijnlijk net te ver... Naast deze super- 
klonerij heeft IBM vergaande plannen met BuU ges- 
meed; de IBM-dealers mogen van Bull portables van 
de dochteronderneming Zenith gaan verkopen. 



Wat dichter bij huis vinden we 
de firma Zyztm. Deze firma 
heeft computers uitgeleverd 
met een illegale versie van 
MS-DOS 5.00. Niet helemaal 
duideUjk is of het hier gaat om 
originele versies die gepat- 
ched zijn of dat het om pure 
piraterij gaat. In ieder geval 
heeft Microsoft de heren zo 
ver gekregen dat zij middels 
advertenties zijn overgegaan 
tot het oproepen van cHenten 
die een dergeUjke DOS-versie 
van Zyztm bij hun computer 
kregen. Als de klant de aan- 
koopbon opstuurt, retour- 
neert Zyztm een legale DOS-versie. MicroSoft 
houdt nauwkeurig in de gaten of er niet meer illegale 
pakketten verkocht zijn dan volgens Zyztm zou kun- 
nen en heeft al gedreigd onmiddellijk naar de rech- 
ter te stappen als dat het geval bhjkt te zijn! 

Tenslotte lijkt er aan de slepende "look- and feel" 
zaak Apple versus MicroSoft en Hewlett Packard 
een einde te komen. Van de oorspronkeUjke 189 
claims heeft het Amerikaanse hof besloten dat er 
slechts enkele werkelijke geschilpunten bestaan tus- 
sen Apple en de twee beklaagden. Hierbij spitst de 
zaak zich toe op de fonts die MicroSoft gebrmkt en 
het vuilnisbakje van HP's New Wave. 



Gelukkig zijn er nog een 
aantal actieve leden die 
iedere keer weer op het 
laatste moment met iets 
aan komen dragen, maar 
op een zeker punt is dat 
geluk natuurlijk op. 



Ook op hardware gebied zijn er veel ontwikkelingen 
gaande. Zo heeft Intel een tipje van de '586-sluier 
opgeHcht. Het ding zal in oktober waarschijnlijk het 
echte dagHcht zien, maar het is al wel duideUjk dat 
het zal gaan om een RISC-achtige processor die 6f- 
wel via een '486 emulator of middels een speciale 
compiler de bestaande progratnmatuur kan draaien. 

In clubverband loopt het echter allemaal niet zo fan- 
tastisch. De KGN68k/30 werkgroep schijnt druk be- 
zig te zijn met de layout van de PCB. De schema's 
zullen dan neem ik aan wel klaar zijn, maar voorlo- 
pig krijg ik uit die hoek nog geen kopij. De enige 
conclusie die ik hieruit kan 
trekken is dat de werkgroep 
toch niet zo goed functioneert 
als we zouden wensen. Ook 
met het DOS-65 gebeuren 
gaat het niet voor de wind. 
Het wachten is daar op ie- 
mand die voldoende tijd in de 
lopende projecten kan en wil 
steken. Ik heb begrepen dat 
het voldoende zou zijn als ie- 
mand het voortouw daar op 
zou pakken... de wil is er wel, 
maar om het nu altijd op de 
zelfde personen terecht te la- 
ten komen... nee, dat werkt 
gewoonweg niet! 



De kopij-kist bhjft zo natuurHjk beangstigend leeg. 
Dat er iedere keer weer wat kopij uit een verstoft 
hoekje opgeduikeld kan worden is meer geluk dan 
wijsheid Hjkt het wel. Gelukkig zijn er nog een aantal 
actieve leden die iedere keer weer op het laatste mo- 
ment met iets aan komen dragen, maar op een zeker 
punt is dat geluk natuurhjk op. En dan... sja, dan 
zullen we een fi? Kenner moeten maken met een 
hoop witte pagina's. Ach ja, aantekeningenboekjes 
zijn nooit weg. Zeker niet als ze zo'n groot formaat 
hebben... 

Joost Voorhaar 
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Stereo D/A omzetter voor ModPlay 



In de uP-kenner nummer 75 publiceerde Joost 
Voorhaar een artikel over het shareware-program- 
ma ModPlay. Bij dat artikel werden een tweetal 
schema's afgedrukt van digitaal-naar- analoog om- 
zetters. Echter: zelfs met een microscoop was ik niet 
in staat om te achterhalen wat er nu eigenlijk stond... 

In het ModPlay pakket bevindt zich gelukkig een be- 
stand HARDWARE.DOC. Daarm staan bovenge- 
noemde schema's beschreven. En hoewel het geluid 
via de PC-speaker niet onaardig klinkt, blijft het wat 
krakkemikkig. Dus werd besloten om maar eens een 
echte D/A omzetter te bouwen. 

De hard^^re 

In HARDWARE.DOC gebruikt de auteur van 
ModPlay een D/A omzetter van Plessey, namelijk de 
ZN428. Deze omzetter bleek in Nederland moeilijk 
leverbaar. Gelukkig bestaan er nog meer fabrikanten 
van D/A omzetters, en de firma Analogue Devices 
bleek een prima altematief te hebben, namelijk de 
AD558. Deze omzetter heeft zelfs lets betere specifi- 
caties dan de ZN428. 

Het door de D/A omzetter geleverde signaal wil je 
natuurUjk ook graag hoorbaar maken. Daartoe wer- 
den twee geintegreerde versterkertjes toegepast, na- 
melijk de LM386. Voor de echte freaks is er ook nog 
voorzien in een hjn-uitgang, waarop een cassette-re- 
corder kan worden aangesloten. 

Het schema 

Geheel links bevindt zich de connector Kl waarop 
de digitale informatie vanuit de printer-poort wordt 
aangeboden. De getallen links van de connector ge- 
ven aan hoe elke Ujn met de desbetreffende pen van 
de 25-polige D-connector van de printer-poort die- 
nen te worden verbonden. 

Na omzetting in de twee AD558 omzetters wordt het 
analoge signaal via twee instelpotmeters aangeboden 
aan de versterkertjes LM386. Het versterkte signaal 
is beschikbaar op de connectoren K2 en K4. Hierop 
kan direct een luidspreker worden aangesloten. 

Het (geregelde) Hjnsignaal is beschikbaar op de 
Cinch-connectoren K3 en K5. 

De voeding-spanning (5 Volt) dient te worden aan- 
geboden op connector K6. De voeding kan bijvoor- 
beeld worden afgetakt van een ongebruikte 
floppy-connector. Voor de eigenaren van een game- 
adapter is het nog eenvoudiger: op de D15-connec- 



tor aan de achterzijde van de computer is -I- 5 Volt 
beschikbaar op pen 1, en massa op pen 4. 

De condensatoren Cll en C7..C10 zorgen voor de 
nodige ontkoppeling. Led Dl tenslotte verzorgt de 
indicatie van aanwezigheid van de voedings-span- 
ning. 

De print 

Met behulp van UltiBoard is er een print ontworpen 
voor de schakeHng. De opbouw ervan is eenvoudig: 
begin met de draadbruggen (6 x), daama de rest. 
Voor de Cinch-connectoren zijn standaard inbouw- 
delen te gebruiken. Buig de massa-Up 90 graden om, 
en soldeer deze aan de sporenzijde van de print. Ge- 
bruik IC-voeten voor de IC's. 

Het in gebruik nemen 

Laat de IC's nog even uit de voeten. Sluit de 5 Volt 
aan, en controleer of LED Dl brandt. Als alles OK 
is, schakel dan de voeding weer af en plaats de IC's 
in hun voeten. Draai de potmeters VRl en VR2 ge- 
heel Unksom. Sluit Kl aan op de printerpoort. Het 
maakt niet uit of LPTl: of LPT2: gebruikt wordt. 
Nadat alles goed is aangesloten, kan ModPlay ge- 
start worden. Type MP 

. ModPlay zal vervolgens zelf 'ontdekken' dat er een 
stereo D/A converter is aangesloten, en dit op het 
scherm melden. Selecteer een .MOD file, en acti- 
veer die. Draai vervolgens VRl en VR2 rechtsom 
tot het gewenste niveau. En dan.... 

Het resultaat 

Vergeleken met het resultaat van de PC-speaker is 
het geleverde geluid een openbaring. Hoe is het mo- 
geUjk, denk je. Fraai stereo, hoewel soms wat 'over- 
done'. Het doet soms denken aan de muziek uit de 
jaren 60; de drummer uiterst links, en het orgeltje ui- 
terst rechts. Desalniettemin: een prima resultaat 
voor de meeste .MOD files. Soms (afhankeUjk van 
de .MOD file) hoor je wat vervorming. Het is me 
nog niet duidelijk of dat nu aan die .MOD file Hgt, 
dan wel aan mijn D/A converter. 

Tenslotte 

Op de komende bijeenkomsten zal ik e.e.a. demon- 
streren. Indien bUjkt, dat er voldoende nabouwers 
zijn, zal ik een aantal printen gaan produceren, die 
dan voor kostprijs (naar verwachting plm. f 20,--) be- 
schikbaar zuUen zijn. 

AdriHankel 
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MPINT.P2 (Apr. 9, 1992) (I.F.T.) SCALE: 100% 



Fig, 2: De componentenopstelling 
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Moderne schizof renie 



Tijdens mijn korte bezoek aan de VS in de herfst 
van 1987 was ik in de gelegenheid een aantal bijzon- 
dere gevallen van schizofrenie te bestuderen. Hoe- 
wel deze gevallen door Amerikaanse psychiaters als 
ongevaarlijk wordt beschouwd, wordt er erkend dat 
het een groeiend probleem is onder vooral de jonge- 
re technici. 

Gefrustreerd door een gebrek aan populariteit be- 
ginnen de technici waarover we het hier hebben te- 
gen zichzelf te praten. Maar in tegenstelling tot het 
gemompel wat we hier in Moskou kunnen horen, ge- 
brniken de Amerikanen de moderne technologie die 
hen ter beschikking staat: de computer. 

In de V.S. bestaat er een netwerk van electronische 
bulletin-board systemen (de zogenaamde "BBS"- 
en). Ze zijn met elkaar 
verbonden door commer- 
ciele telefoonlijnen en mo- 
dems; een stukje techniek 
om de computers met het 
telefoonnet te kunnen ver- 
binden. Individuele ge- 
bruikers kimnen met him 
eigen computer en modem 
"inloggen" op deze BBS- 
en en praten met andere, 
net zulke schizofrene per- 
sonen. Het BBS, oors- 
pronkelijk ontworpen voor 
snelle overdracht van in- 

formatie, is gedegenereerd tot een onpersoonlijk 
communicatiemiddel van armlengte. 

In feite kan iedereen die het zich kan veroorloven 
z'n huiscomputer lange tijd bezet te laten houden 
door anderen, een BBS beginnen en het vervolgens 
vullen met gratis software, geschreven door vrijgevi- 
ge programmeurs. Mijn opmerking tegen een Ame- 
rikaanse telefoonmaatschappij dat zij die software 
maakten om technici bezig te houden in plaats van 
ze productief te maken (waarmee de winst van de 
maatschappij vergroot zou kunnen worden) werden 
afgedaan als een valse beschuldiging. 

Ik interviewde dr. George Sands van het Institute of 
Abnormal Electronics Behaviour in Berkeley, Cali- 
fomie. Hij bevestigde dat er een groeiend probleem 
is onder jonge technici (die hij hardnekkig "users" 
bleef noemen) met het toenemen van het aantal bul- 
letin-board systemen. "Er zijn in feite meer BBS-en 
dan er users zijn in de "Bay-area" (San Fransisco en 
omgeving) en die users communiceren met steeds 
dezelfde personen.Sommigen tonen duidelijk symp- 
tomen van verveling. Een aantal slimmerikken log- 



In feite kan iedereen die het 

zich kan veroorloven z'n 
huiscomputer lange tijd bezet 
te laten houden door anderen, 
een BBS beginnen 



gen in onder een aantal verschillende namen, per 
naam steeds met een nieuwe persoonlijkheid. Ze 
schrijven een berichtje onder een van de namen en 
antwoorden dan onder een andere naam. Er is een 
geval bekend van een man van midden-vijftig, die 
zichzelf zo'n zes verschillende persoonlijkheden had 
aangemeten, waarschijnlijk zelfs acht. Een van deze 
"personen" was zelfs gepromoveerd tot assistent- 
systeem-operator.!". "Maar hoe kan dat nu gebeu- 
ren?", vroeg ik dr. Sands. "Wei, de operator had de 
man nog nooit in levende hjve ontmoet, of zelfs met 
hem gepraat via de telefoon". Dr. Sands bestreed 
mijn bewering dat BBS-en verontmenselijkten met 
het argument dat dat ook werd gezegd over de tele- 
foon toen die werd geintroduceerd. "Amerikanen 
hebben te weinig geschiedenis om lets serieus te ne- 
men. Ze Frobelen veel liever met hun spullen dat ze 
maar al te vaak misbruiken 
als speelgoed. Scheepsont- 
werpen veranderden in de 
negentiende eeuw voor 
snellere en meer commer- 
dele reizen over de gehele 
wereld. Al snel daarna wer- 
den schepen door de Ame- 
rikanen gebruikt om 
race-wedstrijden te hou- 
den. De huiscomputer is 
net zo'n misbruikt speel- 
tje". 



"Het echte gevaar", zo ver- 
volgde hij: "is dat er steeds meer individuen geiso- 
leerd raken van hun medemens. Huiscomputers zijn 
veel interessanter en spannender dan zelfs de televi- 
sie, en die heeft al een hele generatie thuisbhjvers 
voortgebracht, soms sarcastisch aangeduid als "zit- 
zakken". Maar gelukkig worden deze veronderstel- 
Hngen misschien iets minder verschrikkelijk als je in 
je achterhoofd houdt dat het gebruik van een com- 
puter een veel grotere expertise vereist dan het ge- 
bruik van een televisie toestel. Daardoor vallen er op 
dit moment alleen de slimmere en beter excentrieke- 
lingen ten prooi aan dit probleem". 

Ik vroeg Dr. Sands hoe deze mensen konden worden 
herkend en '1)ehandeld" voor hun eigen bestwil. Hij 
gaf de volgende kenmerken: "Hun huizen hebben 
nauwelijks meubels; er staat slechts het hoogst- 
noodzakelijke. Alles is streeploos schoon, behalve 
het computerscherm: daar zit een laag stof op. Het 
bed is nooit opgemaakt. Het huis heeft zes of zeven 
telefoonlijnen. Er zijn alleen computer-handleidin- 
gen te vinden, geen andere boeken. De mannen om 
wie het gaat zijn al gescheiden, of staan op het punt 
om dat te doen. Ze hebben geen relatie of hebben 
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die misschien zelfs nog nooit gehad. Er zijn trou- 
wens nog geen vrouwen ten prooi gevallen aan dit 
verschijnsel, ondanks het feit dat sommige van de 
gefingeerde persoonlijkheden vrouwen zijn. Kinde- 
ren zijn weggelopen van huis. Geen enkele van de 
jongere slachtoffers heeft overigens kinder en. Sex- 
ueel zijn ze inactief; ze planten zich in ieder geval 
niet voort. Net als met alcoholisme, zuUen de slacht- 
offers zich zeer punctueel op hun werk melden. Ze 
zullen nagenoeg niet worden gepromoveerd; niet 
omdat ze daar de capaciteiten niet toe bezitten maar 
omdat ze anders de vrije tijde, die ze gebrmken om 
hun verslavende bezigheid uit te voeren, zullen ver- 
Hezen. Hun koelkast zal slechts enkele geopende 
blikjes bier of fris bevatten. De meeste slachtoffers 
beperken zich tot chips en frisdrank vanwege het ho- 
ge suikergehalte". Er is een geval bekend van een 
man, die in zes dagen niet had gegeten. Hij werd 
door agenten gevonden ui een supermarkt na slui- 
tingstijd, waar hij, hysterisch lachend en omringd 
door open blikjes cola en opengescheurde zakken 
chips, probeerde naar buiten te bellen met de com- 
puter-kassa. Toen de agenten zijn dikke brilleglazen 



en de plastic pennenhouder in zijn borstz2ikje ont- 
dekten, waarschuwden ze dr. Sands. 

De Amerikaanse regering heeft geprobeerd electro- 
nische bulletin board systemen te introduceren in 
Moskou, zodat onze kinderen op dezelfde wijze zou- 
den worden beziggehouden met nutteloze arbeid. 
Zonder succes overigens. 

De grote geleerde Pavlov maakte ooit eens duideHjk, 
dat om een kit te hypnotiseren je slechts een witte 
Ujn op de stoep hoeft te trekken, waar je vervolgens 
de kip bovenop zet met zijn poten aan weerskanten 
van de Ujn. De kip zal zich niet meer durven te be- 
wegen. Mensen hebben complexer hypnotiserend 
gereedschap nodig; de televisie heeft wat dat betreft 
zijn rol wel bewezen in de laatste decennia. Nu is er 
dus een hypnotiserend werktuig voor de inteUigen- 
ten. Het is gelukt ze tegen zichzelf te laten praten. 

Rangott Spliekin, columnist voor de Pravda 
Vertaling: Yves Barbero en Maarten Festen 




(Advertentie) 



De KIM Gebruikersclub Nederland zoekt een 



P.R.-fuiictionaris (m/v) 



om zitting te nemen in het algemeen bestuur 

Het bestuur is van mening dat zijn niet voldoende aandacht kan besteden aan de public relations 
van de verenuging naar leden zowel als naar derden. 

Uw taak zal ondermeer bestaan uit het opbouwen en onderhouden van contacten namens de ver- 
eniging met het bedrijfsleven, de pers en alle eventuele andere organisaties. Daarnaast zal er ook 
een stukje communicatie met de leden opgezet moeten worden. Tenslotte zal hij (of zij!) zich bezig 
gaan houden met het organiseren van activiteiten die buiten het directe werkgebied van de huidige 
bestuursleden Hggen, waarbij hij/zij uiteraard wel hulp zal krijgen van het voltaUige bestuur. 

Van eventuele gegadigden worden goede coromunicatieve vaardigheden, zowel op papier als op 
verbaal vlak verwacht. In het Hcht van de huidige ontwikkelingen is een parate kennis van de En- 
gelse taal zo nu en dan wel noodzakelijk. Ervaring in de P.R. is een pre maar absoluut geen eerste 
vereiste. Daarnaast zal u als toekomstig bestuursHd voldoende tijd moeten willen en kunnen steken 
m het P.R.-werk. In dit Ucht wijst het bestuur met nadruk op de komende lustrumactiviteiten. 
Hierbij valt o.a. te denken aan een symposiiun, gespecialiseerde studiedagen en misschien zelfs wel 
(een aantal) leuke excursie(s). 

Meer informatie is verkrijgbaar Tonny Schaffer, Geert Stappers en Joost Voorhaar (voor adressen 
en telefoonnummers: zie informatie pagina achterin de uitgave). NatuurUjk kimt u ook schrijven 
naar de KIM Gebruikersclub Nederland, postbus 1336, 7500 BH te Enschede. 



De/<P Kenner, no. 76 (april '92) 



9 



p 



Software 



To Share Or Not To Share, That's The Question... 



Al anderhalf jaar wordt er nu binnen de club ge- 
sproken over Minix en het KGN68k/30 project. On- 
langs heeft Minix er echter een geduchte concurrent 
bijgekregen in de vorm van het vrij verspreidbare Li- 
nux. Linux is een UNIX-like operating system dat 
specifiek voor de '386 lijn geschreven is. In deze af- 
levering van "To Share..." werpen we een blik op 
deze veelbelovende UNIX-kloon en zal ik proberen 
de voor- en nadelen van Linux ten opzichte van Mi- 
nix uit de doeken te doen. 

Linux is geschreven door Linus Torvalds, voor zover 
ik heb kunnen nagaan een docent aan de universiteit 
te Helsinki. Het systeem is geheel volgens het zoge- 
naamde "copyleft" agreement van de Free Software 
Foimdation (beter bekend door het GNU project!) 
verkrijgbaar. Dat betekent dat het zaakje weHswaar 
copyrighted is, maar dat de executables vrij beschik- 
baar zijn. De sources van GNU-software moeten al- 
tijd tegen nominale kosten (d.w.z.: tegen materiaal- 
en verzendkosten) beschikbaar gesteld worden. In 
tegensteUing tot veel shareware mag GNU-spul wel 
voor commerciele doeleinden gebruikt worden, zo- 
lang de software zelf maar niet commercieel aan de 
man gebracht wordt. Zo wordt de GNU C-compiler 
(GCC) meegevelerd met de NeXT, het 68030-sys- 
teem uit de stal van Steve Jobs. 

Systeemeisen 

Voor het draaien van Linux is, zoals gezegd, mini- 
maal een 80386-PC nodig. Dit mag in de praktijk na- 
tuurhjk ook best wel een 386SX zijn, maar dat merk 
je onmiddeUjk in de performance van het systeem. 
Verder moet de machine minimaal beschikken over 
2 MByte aan RAM en een 1.2 of 1.44 MByte floppy- 
disk. Wil je echt gebruik gaan maken van Linux, dan 
heb je (uiteraard) ook een harddisk nodig en eigen- 
hjk toch wel 4 MByte aan RAM. Die harde schijf 
moet in principe AT-compatible zijn; dat wil dus 
zeggen: MFM of IDE techniek. Of RLL onder- 
steund wordt is mij nog niet geheel duidehjk, maar 
ik verwacht eigenlijk van wel. Vanaf versie 0.95c + 
wordt ook SCSI ondersteund volgens zowel de 
SCSI/1 als de SCSI/2 standaard. Aan diskruimte 
wordt tenslotte 20-40 MByte als minimum genoemd. 
Dit Hjkt me wel wat veel; 10 MByte zou voldoende 
moeten zijn om een simpel systeem op te zetten. 
Echt lekker draait het systeem echter pas met zo'n 
40 tot 60 MByte aan harddisk ruimte. Als console 
voldoet een hercules, CGA, EGA of (S)VGA com- 
patible display. Van een aantal SVGA kaarten wor- 
den zelfs extended modes ondersteund (d.w.z.: meer 
dan de obHgate 25 regels van 80 kolommen!). 

De eisen die Minix aan een systeem stelt zijn, zoals 
bekend verondersteld mag worden, een stuk lager. 




Zo is een PC/XT met twee floppen en 512 kByte 
RAM al voldoende. Verder draait Mmix op de 
IBM-PC, Amiga, atari ST, Mcintosh en Sun Sparc, 
om maar eens een aantal systemen te noemen. Daar 
staat natuurlijk wel tegenover dat Minix door zijn 
flexibiHteit minder bruikbaar is als dageUjks werk- 
paard dan Linux. 

Installatie 

Voor het installeren van Linux is volgens de verschil- 
lende bronnen (bijna) geen kennis van MeSsy DOS 
en/of UNIX nodig, maar naar mijn idee kun je zon- 
der die kennis voor behoorUjke problemen komen te 
staan. Verder heb je een aantal tools nodig die lang 
niet iedereen direct beschikbaar heeft om Linux aan 
de praat te krijgen. 

De eerste kennismaking met het systeem begint na- 
tuurhjk bij de distributie. Op een aantal bulletin 
boards en op een groeiend aantal Internet sites is Li- 
nux beschikbaar. Vooral als de originele distributie 
van het Internet naar MS-DOS gehaald wordt, is er 
wat niet-standaard programmatuur nodig om het 
zaakje aan de praat te krijgen. Zo worden de origi- 
nele boot- en rootimages gecompressed aangele- 
verd. Wil je die dus op flop zetten, dan heb je 
sowieso al een implementatie van compress voor 
DOS nodig. Verder heb je programmatuur nodig 
om de diskimages naar flop te copieren. Dit gaat uit- 
stekend met de Norton Utilities, maar er is ook een 
apart programmaatje ("Rawrite") beschikbaar voor 
onder DOS. Met enkel de root- en bootimage heb je 
een minimaal systeem dat van flop draait. 
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Om bestanden van DOS naar Linux te krijgen is er 
een spedaal pakketje geschreven onder de naam 
"MTools". Hier doet zich echter een kip-ei pro- 
bleem voor dat zich niet zo eenvoudig laat oplossen. 
Hoe kom je namelijk aan die tools? Jawel, downloa- 
den van een BBS of van Internet. Die programma's 
zijn in de originele distributie (mtools.tar.Z) ge- 
TAR'd en vervolgens gecompressed. Die kunnen we 
onder Linux wel uitpakken, maar hoe krijg je die 
dingen Linux binnen? De meest voor de hand lig- 
gende oplossing is natuurhjk door ze in Linux te 
downloaden. Maar daar hebben we weer een termi- 
nal programma voor nodig. . . en hoe je daar dan aan 
zou moeten komen? Downloaden misschien? Een 
verhaal zonder eind dus. Een andere mogehjkheid 
is, om Mtools.tar naar flop te "TARren" onder 
DOS. Daar heb je dus een 
tar voor DOS systemen voor 
nodig. En gelukkig bestaat 
die wel... vervolgens Linux 
opstarten, en van flop "terug- 
TARren". Maar dat gaat niet 
als je Linux van flop draait... 
daar heb je meer ruimte voor 
nodig! Van harde schijf star- 
ten dus. En daarvoor moet je 
eerst het hele zaakje voor op 
harddisk zetten. Voorwaar, 
een onhandig klusje! 



Hier doet zich echter een 
kip-ei probleem voor dat 
zich niet zo eenvoudig laat 
oplossen. Hoe kom je 
namelijk aan die tools? 



Om die MTools aan de praat 
te krijgen hebben we wel wat 
meer nodig dan alleen een 
compress en tar... ook een C-compiler is onontbeer- 
Hjk, want in de normale distributie is MTools alleen 
in source geleverd! Nu is Linux zelf met behulp van 
de GNU-C compiler geschreven en GCC is dan ook 
als compiler voor Linux beschikbaar. Er is voorge- 
steld om GCC 2.1 tot standaard-compiler te benoe- 
men. Deze C++ compiler is nog in Beta-versie 
beschikbaar, maar dat is Linux zelf ook. 

Ofschoon het begin eenvoudig is, haal je je met de 
volledige installatie van Linux dus toch best wat 
werk op de hals. Leerzaam is het allemaal wel, voor- 
al als je nog (bijna) geen kaas van UNIX (of UNIX- 
achtige) systemen hebt gegeten. 

Documentatie 

Ik heb het al even zijdeUngs genoemd: Linux is nog 
in een beta-stadixmi. Dat betekent o.a. dat de docu- 
mentatie vrijwel nihil is. Gelukkig is er al wel een 
manual systeem beschikbaar en Ujkt Linux behoor- 
Hjk op een "echte" UNIX. De documentatie bestaat 
nu nog uit een information sheet, een installatie- 
handleidinkje, een FAQ-Hst (ehh... een Ujst met 
"Frequently Asked Questions"), een aantal losse 
verhaaltjes en de on-line manuals. Alles is (uiter- 



aard) in het Engels (en waarschijnlijk ook in het 
Fins...) beschikbaar. Het verdient wel de aanbeve- 
Ung om er een goed UNIX-boek bij te hebben, voor- 
al als je geen of weinig ervaring met een 
Minix-achtig systeem hebt. 

Tenslotte 

Groot is het allemaal wel. Nou ja, dat wil zeggen... 
als je het met bijvoorbeeld OS/2 vergehjkt valt het 
allemaal hard mee. Je kunt het allemaal net zo uitge- 
breid en ingewikkeld maken als je zelf wilt; een mini- 
mum systeem beslaat ca. 1 Megabyte; een totaal 
uitgebreid systeem kan tientallen MegaBytes in be- 
slag nemen. 

De voor- en nadelen van Linux t.o.v. Minix liggen 
aardig voor de hand. Om 
mee te beginnen: Linux is 
gratis, terwijl je voor Minix 
een 400 gulden neer moet 
leggen. Minix is wel kleiner 
en overzichteUjker, kan met 
een veel kleiner systeem 
overweg en is voor een hele 
hoop machines beschikbaar. 
Verder is Linux meer gericht 
op het bouwen van een bruik- 
baar systeem dan het (in eer- 
ste instantie) voor onderwijs 
bedoelde Minix. Dat uit zich 
bijvoorbeeld in het gebruik 
van de GNU C-compiler 
(Minix heeft een eigen com- 
piler, hoewel voor een aantal versies ook een GNU- 
implementatie beschikbaar is), de memory swapper, 
job control, de task-grootte (64 MByte per task waar 
bij Minix/FC slechts 128 kB per task mogelijk is), de 
virtual consoles en het multi-threaded filesystem. 

De verspreiding van Linux via de verschillende net- 
werken heeft zowel voor- als nadelen. Heb je zelf 
een modem, dan kun je makkehjk bij je distributie- 
pimt komen. Een high-speed modem (9600 bps en 
hoger) verdient zich dan denk ik na verloop van tijd 
wel terug. Aan de andere kant is niet iedereen geze- 
gend met zo'n mooi apparaat en biedt lang niet ie- 
der BBS Linux files aan. En als je het echt goed wilt 
doen heb je eigerdijk ook een Internet-aansluiting 
nodig... Minix daarentegen is beschikbaar bij de be- 
ter technische boekhandel. Verder kun je het zaakje 
natuurhjk ook bij de uitgever bestellen, hetgeen de 
continuiteit van het produkt wel beter waarborcht 
dan de verspreiding via netwerken. 

Conclusie 

Met Linux haal je je een hele aardige UNIX binnen, 
die voor de gevorderde UNIX-gebruiker een aantal 
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hele aardige features biedt. Goedkoop is het sys- 
teem natuurlijk ook, hoewel je wel rekening moet 
houden met hoge(re) telefoonkosten en de relatief 
dure hardware. Linux lijkt me een uitstekende basis 
voor kennismaking met UNIX, mits je zelf al de be- 
nodigde apparatuur hebt. Minix blijft natuurlijk voor 
de KGN belangrijker dan Linux omdat de 
KGN68k/30 onder dit OS zal gaan lopen. De con- 



currentie voor Minix is echter met de komst van Li- 
nux behoorlijk toegenomen. Waar de Minix-aanhan- 
gers van het Coherent baksel weinig te duchten 
hebben gehad zal deze nieuwe kloon een geduchte 
concurrent worden. 

Joost Voorhaar 



Software overzicht 

Voor een minimaal Linux systeem zijn de volgende bestanden nodig (zie de Linux-area van "The Ultimate"): 
File Inhoud 
Boot095a.Zip Boot image (de kernel) 

Root095a.zip Het standaard root systeem 

Inst-Oll.Zip Installatie instructies voor 0.11, ook nodig voor 0.95 

Rawrite.zip Dos utihty om image files naar schijf te schrijven 

RelNo095a.zip Release notes voor versie 0.95 

In totaal is dit ca. 600 kByte groot. Naast deze files zijn er nog behoorhjk wat andere programma's en bestanden 
beschikbaar. Zo kan ik de GNU C-compiler, assembler en debugger aanraden (enige megabytes helaas). En 
dan is er natuurUjk nog de overvloed aan GNU-implementaties van aUerlei verschillende UNIX-utihties, de 
emacs editor, TeX, UUCP, vi, Roff en zelfs een prolog compiler ontbreekt niet! 



Systeem eisen 

• 80386SX of hoger ('386/16 aanbevolen) 

• 2 MByte RAM (4 MByte aanbevolen) 

• 1.2 of 1.4 MByte diskette station 

• MFM/IDE of SCSI harde schijf, 20 MB (60 MB aanbevolen) 

• Hercules, CGA, EGA of (S) VGA adapter 



Pluspunten 

• Gratis 

• GNU ontwikkel omgeving 

• Memory paging, multi threaded file system, job control etc. 

• 64 MByte per task (X- Windows implementatie is mogelijk!) 

• Source beschikbaar 



Minpunten 

• Dure hardware noodzakeUjk 

• Geen centraal geregeld distributie centrum 

• Kernel ondersteunt geen message passing 

• Nog niet zo "volwassen" als Minix 

• (Vrijwel) geen documentatie 
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Een snelle assembler met behulp van hash en chaos 



Inleiding 

Ik hoop dat de titel die boven dit artikeltje staat op 
zijn minst uw aandacht getrokken heeft, tenslotte 
willen alle auteurs graag dat de produkten van hiin 
huisvlijt gelezen worden. Hoewel de titel het tegen- 
deel doet vermoeden, zal dit echt een seriexis artikel 
worden. Hash slaat namelijk niet op de beroemde 
(beruchte?) soft drug uit de jar en 60 maar is een ver- 
wijzing naar een techniek waarbij orde omgezet 
wordt in chaos en die onder andere gebruikt kan 
worden voor het ontwikkelen 
van een database. 



Zoals ik heb aangegeven, wilde 
ik mijn activiteiten wat gaan ver- 
leggen naar KGN-68k. Binnen 
deze werkgroep wil ik mij met 
name bezig gaan houden met de 
software-kant van het project. 
Dat is ondertussen ook gebeurd 
en ik ben momenteel bezig met 
het schrijven van een cross-as- 
sembler waarmee we 68000, - 
010, -020 en -030 code kunnen 
genereren voor bijvoorbeeld de monitor en de devi 
ce drivers. 



Hash slaat namelijk 
niet op de beroemde 
(beruchte?) soft drug 
uit dejaren 60. 



Ik ben, in overleg met de werkgroep, begonnen aan 
een assembler in 'C die in staat moet zijn code voor 
de hele 68000 reeks, inclusief de floating point co- 
processor en de memory management unit te gene- 
reren. Ik heb in deze assembler meteen een aantal 
ideeen verwerkt waardoor de assembler beter en 
sneller zou moeten worden dan andere assemblers 
en over een van deze ideeen gaat dit artikel. 

De opcode-tabel en labellijst 

Een assembler werkt meestal 
twee keer de hem aangeboden 
som"ce door. Deze doorgangen 
worden in het vak-j argon "pas- 
ses" genoemd. Gedurende de 
eerste doorgang tracht de as- 
sembler al zo veel mogehjk fou- 
ten op te sporen en aan te 
geven zodat de gebruiker (of de 
assembler zelf) kan beslissen of 
een tweede doorgang wel zinvol 
is. Verder is het hoofddoel van 
de eerste doorgang uit te zoe- 
ken wat de waarden zijn van de 
gebruikte labels. Bekijk bijvoorbeeld het afgedrukte 
stukje 68000 code. 



1 ffffffff 






; Example program for HASH article 


2 ffffffff 








o TtTttTTT 






; G. van Opbroek/1 0-05-1 992 


4 ffffffff 








5 ffffffff 






ORG $1 0000 ; Origin of tlie program 


6 00010000 




number 


EQU 1 00 ; This is a constant 


7 00010000 


6064 


start 


BRA.S p_start ; Branch to program start 


8 00010002 




storage 


DS.B number ; Reserve 100 bytes of storage 


9 00010066 








10 00010066 


7064 


pstart 


MOVE.L #number,dO ; Initialize counter 


11 00010068 


223cffffffff 




MOVE.L #$FFFFFFFF,D1 ; Initialize mask in D1 


12 00010066 


41f900010002 




LEA storage,AO ; AO ~ pointer to storage 


13 00010074 


21810800 


loop 


MOVE.L D1 ,0(AO,DO.L) ; Move mask to storage 


14 00010078 


51c8fffa 




DBRA DO.Ioop ; Deer. DO and branch while = 0 


15 0001007c 






END 


Symbol table : 








number 


$00000064 


start 


$00010000 


storage 


$00010002 


p_start 


$00010066 


loop 


$00010074 







Fig, 1: listing van DEMO ASM 
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In dit voorbeeld staat een definitie van een constante 
tijdens assembler en. Dit is de regel waar met woord 
"EQU" in staat. Het label "number" krijgt dan de 
waarde die uit de expressie komt die achter het 
woord "EQU" staat, in dit geval 100. Verder staat er 
een reservering voor geheugenruimte in. Dit wordt 
aangegeven door de aanduiding "DS" of te wel "De- 
fine Storage". Hier wordt een hoeveelheid ruimte 
gereserveerd waarbij achter DS een .B, .W of .L kan 
staan waarmee aangegeven wordt of we een hoeveel- 
heid bytes, words (2 byte) of long words (4 bytes) 
willen reserveren. Tenslotte staan in het programma 
twee labels die weer terugkomen in sprongopdrach- 
ten BRA (Branch Always) en DBRA (Decrement 
and Branch Always). Nu is het de bedoeling van 
pass 1 van de assembler dat de waarde van alle la- 
bels bepaald wordt zodat gedurende pass 2 de juiste 
waarden ingevuld kunnen worden. Dit betekent dat 
er in pass 1 een zogenaam- 
de labellijst opgebouwd 
wordt waarin voor elk label 
staat welke waarde dit label 
heeft. Gedurende pass 2 
kan de assembler uit deze 
Hjst dan de waarden van de 
labels halen. Aan het einde 
van de listing wordt deze la- 
belHjst als zogenaamde 
"Symbol Table" afgedrukt. 



lets dergelijks gebeurt ook 
met de instructies zelf. Een 
68000 heeft vele instructies 
in diverse varianten. Al de- 
ze instructies worden over 
het algemeen ook in een ta- 

bel gezet met daarbij enkele kenmerken van die in- 
structie. Dit noemen we de opcode-tabel. 

Het zoeken in tabellen 

Als je een tabel hebt opgesteld met daarin bij voor- 
beeld alle instructies van een 68000 kun je daar op 
diverse manieren in gaan zoeken. In de eerste plaats 
kun je natuurlijk altijd van boven naar beneden de 
tabel doorlopen net zo lang tot je de gezochte in- 
structie gevonden hebt. In de praktijk is deze metho- 
de alleen handig als je een kort Hjstje hebt. 
Gemiddeld moet je namelijk altijd de halve tabel 
doorwerken voordat je het gezochte gevonden hebt 
zodat je 0.5 * N vergeHjkingen moet doen (waarbij N 
de lengte van de tabel is). Deze methode zullen we 
"Lineair zoeken" noemen. 

Een tweede mogeHjkheid die je toe kunt passen is 
het zogenaamde "Binaire zoeken". In dat geval moet 
de hjst gesorteerd zijn, in ons voorbeeld dus op alfa- 
bet. Als nu de lengte van de Hjst weer N is, dan kijk 
je eerst naar de opcode die precies in het midden 



Zo zou je ook (in een domme 

bui) kunnen zeggen dat je 
260 pagina's reserveert voor 
mensen waarvan de naam 
begint met A, 260 voor B, ... 
260 voor Q ... 260 voor X ... 
en 260 voor Z. 



staat, dus 0.5 * N. Is de gevonden waarde groter dan 
de gezochte, dan zit de gezochte waarde in de eerste 
helft van de hjst. Vervolgens ga je kijken op een 
kwart etc. Je halveert dus iedere keer het gebied 
waar je in moet zoeken. Op deze manier vindt je het 
gezochte element na maxunaal LOG(N) waarbij 
LOG de logaritme met grondtal 2 is. Uit een Hjst 
met 1024 elementen vindt je zo na maximaal 10 
vergeUjkingen je gezochte opcode. Zeer belangrijk is 
in dit geval dat je hjst gesorteerd is. 

Het "Bmaire zoeken" is een hele handige methode 
in die gevallen waarin de hjst van tevoren vast hgt 
zodat ze eerst gesorteerd kan worden. In de praktijk 
is dit niet altijd het geval. Neem als voorbeeld een la- 
beUijst. Deze wordt opgebouwd aan de hand van de 
labels die m de source staan. Deze labels zijn uiter- 
aard niet gesorteerd zodat je ervoor moet zorgen dat 
de hjst tijdens het opbou- 
wen gesorteerd wordt of je 
sorteert hem na pass 1 van 
de assembler. Zowel voor 
het opbouwen en gesorteerd 
houden van een hjst als voor 
het naderhand sorteren van 
een hjst zijn een groot aan- 
tal technieken. Voor men- 
sen die daar meer over 
willen weten verwijs ik naar 
de hteratuur en dan met na- 
me naar hteratuur over line- 
air e hjsten, binaire bomen 
en diverse in- en externe 
sorteertechnieken. 



In dit artikel wil ik een der- 
de methode bespreken die vooral erg interessant is 
bij grote tot zeer grote hjsten die niet gesorteerd 
zijn. De snelheid van deze methode is namehjk m 
het geheel niet afhankehjk van de grootte van de 
hjst. Gemiddeld zul je bij deze techniek na zo'n 1,1 
vergehjkings-operaties het gezochte element in de 
hjst vinden. Dit is de techniek die aangeduid wordt 
met de term "Hashing" en die in de rest van dit arti- 
kel wordt behandeld. 

Het telefoonboek 

Hashing is een techniek die bijvoorbeeld heel goed 
toegepast zou kunnen worden voor het maken van 
een elektronisch telefoonboek. Zoals iedereen weet, 
begint het telefoonboek van bijvoorbeeld Amster- 
dam met iemand waarvan de naam begint met Aa... 
en eindigt ongetwijfeld met iemand die Zy... heet. 
Dit is dus een gesorteerde hjst. Als je nu meneer N. 
Negenvoet zoekt, dan slaan de meeste mensen het 
telefoonboek zo'n beetje m het midden open en kij- 
ken welke namen daar staan. Vervolgens sla je enke- 
le tientallen pagina's voorruit of terug etc. tot je de 
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juiste pagina gevonden hebt. Dan zoek je op de pa- 
gina de juiste kolom en vervolgens de juiste regel. 
Dit is dus zo'n beetje het binaire zoeken. 

Het nadeel van een dergelijk telefoonboek is dat als 
er iemand bijkomt (laten we aannemen Questodor), 
we alles wat na deze persoon komt moeten gaan ver- 
schuiven. Zo komt het dus dat je elk jaar ergens an- 
ders in het telefoonboek staat. Wat je beter zou 
kunnen doen, is dat je bijvoorbeeld in elke kolom 
wat vrije ruimte houdt om mensen toe te voegen. Je 
blijft dan toch meestal op dezelfde bladzijde staan 
en meestal ook altijd op dezelfde plaats. Zo zou je 
ook (in een domme bui) kunnen zeggen dat je 260 
pagina's reserveert voor mensen waarvan de naam 
begint met A, 260 voor B, ... 260 voor Q ... 260 voor 
X ... en 260 voor Z. Het voordeel is dat je al veel 
sneller kimt zoeken. Zeker als je zegt 10 voor Aa, 10 
voor Ab etc. Meneer Baal komt 

dan altijd terecht op een van de 

pagina's 261 t/m 270. Hier komt 
echter een groot nadeel van de 
wijze waarop namen vergeven 
worden naar voren. Er zijn veel 
meer mensen waarvan de naam 
begint met Aa dan waarvan de 
naam begint met Qq. Het tele- 
foonboek zal dus veel lege pagina's 
hebben bij de Q en weinig bij de 
A. Kortom je ver spilt heel veel 
ruimte. De indeling wordt als het ware opgelegd 
door de letter waarmee de naam van de meeste 
mensen begint. Op deze manier is het telefoonboek 
voor meer dan de helft leeg, zonde van het papier 
dus. 

In een computer zou je hetzelfde kunnen doen. Je 
zegt dat je namen van maximaal 20 letters op kan 
slaan. Vervolgens zeg je dat je voor elke mogehjke 
naam 256 byte reserveert. Dit betekent dat je 26 tot 
de macht 20 maal 256 byte = heel veel schijfruimte 
nodig hebt. Zeer onpraktisch dus. Het voordeel is 
wel dat je precies weet waar iedereen staat en dat je 
dus niet hoeft te zoeken. Wat je echter ook zou kun- 
nen doen, is dat je aan iedereen een nummer van bij- 
voorbeeld 6 cijfers toekent. Hoe je dat doet is nu 
even niet interessant. Deze 6 cijfers geven de index 
in een tabel van 10.000.000 records van 256 byte met 
daarin de informatie van de betreffende persoon. 
Op deze manier krijg je lets dat al hanteerbaar is, je 
houdt nu namelijk nog 2.500 MB aan informatie 
over, nog steeds niet niks maar wel voldoende om 
heel veel gegevens van alle bewoners van Amster- 
dam en de verre omtrek in op te slaan, BHjft natuur- 
Hjk de vraag hoe je aan dat getal van 7 cijfers komt. 



Hashing 

De vorige paragraaf eindigde met de vraag hoe je 
aan het getal van 7 cijfers komt. Dat is eigenhjk niet 
zo belangrijk mits het getal maar afgeleid kan wor- 
den uit de zogenaamde "key" of "sleutel" waarop je 
wilt zoeken, in dit geval dus de naam van de per- 
soon. Je krijgt dan een zogenaamde Hash-functie 
waar je de naam in stopt en die het getal van 7 cijfers 
als uitkomst heeft. Wat wel belangrijk is, is de voor- 
waarde dat als je het hele telefoonboek van Amster- 
dam er doorgehaald hebt niet alles in de eerste helft 
van je tabel terecht komt. De verdeling van informa- 
tie over de tabel moet zo goed mogehjk homogeen 
zijn ondanks het feit dat de verdeling over de letters 
niet homogeen is. Hier komt dus de chaos om de 
hoek kijken. De functie zou er eigenhjk voor moeten 
zorgen dat een bepaald persoon op een willekeurige 
plaats in de tabel terecht komt, maar wel altijd op 
dezelfde plaats. De tabel zal dus 
over het algemeen niet meer op al- 
fabet gesorteerd zijn. 



Hier komt dus de 
chaos om de hoek 
kijken. 



Waarom een homogene spreiding 
belangrijk is, bhjkt uit de beschrij- 
ving van het begrip "coUisions". 
Hoe goed een hash-functie ook is, 
hij kan nooit voorkomen dat twee 
verschillende personen op dezelfde 
plaats in de tabel terechtkomen. 
Dit zijn de zogenaamde "coUisi- 
ons" of botsingen. Zowel Jantje als Pietje krijgen in- 
dex 1234567 toegewezen. Nadat Jantje in de tabel 
gezet is, is er voor Pietje dus geen plaats meer. De 
kans dat dit optreedt is bij een goede hash-functie 
alleen afhankehjk van de vullingsgraad van de tabel. 
In de praktijk zal deze kans tot een vulling van zo'n 
85% onder de 10% Hggen. Bij een slechte hash-func- 
tie gaan er meer factoren een rol spelen. Zo zal er 
bij een hash-functie die altijd de waarde 1 oplevert 
al na twee elementen een colHsion optreden. 

Hashfiincties 

Wat je als hashfunctie moet kiezen hangt een beetje 
van de situatie af. Vaak wordt er iets gedaan met de 
index van de letters in de ASCII-tabel. Je zou bij- 
voorbeeld de ASCII-waarde van alle letters bij el- 
kaar op kunnen tellen. Vervolgens deel je het 
resultaat van de optelling door de lengte van de ta- 
bel waama de rest van de deling de index in de tabel 
oplevert. Het nadeel van deze hash-functie dat hij 
aUeen goed werkt als je een korte tabel hebt (tot 
zo'n 100 plaatsen) of hele lange namen. Je krijgt na- 
mehjk pas een goede verdeling als het resultaat voor 
de deling meerdere malen de lengte van de tabel op- 
levert. 



In het programma-voorbeeld wordt dit probleem 
opgelost door in de hash-functie het tussenresultaat 
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steeds met een bepaald getal te vermenigvuldigen. 
Dit wordt uit snelheids-overwegingen gedaan d.m.v. 
een schuif-operatie maar kan natuurlijk ook d.m.v. 
een echte vermenigvuldiging gedaan worden. 

Afhandeling van collisions 

Zoals al is aangegeven kunnen er bij het vnllen van 
de tabel collisions optreden. Het is natuurlijk niet de 
bedoeling dat het element waarbij de collision op- 
treedt niet opgenomen wordt in de tabel. Er zijn een 
aantal manieren om deze situatie af te handelen. In 
de eerste plaats kun je bijvoorbeeld een tweede 
hash-functie aanroepen. Je zou bijvoorbeeld de ver- 
menigvuldigingsfactor kunnen wijzigen. Ook kun je 
vast getal bij de index optellen en de deling opnieuw 
uitvoeren. Als je dat goed doet, zul je, zolang de ta- 
bel niet geheel gevuld is, altijd een lege plek vinden. 

Een andere mogelijkheid is dat je op de plaats waar 
je de informatie kwijt wilt een lijstje aanlegt van in- 
formatie die daar staat. Deze lijst is dan uiteraard 
vele malen korter dan de oorspronkelijke lijst. Dit is 
gedaan in het programma-voorbeeld. Een plek in de 
tabel is niet meer dan een verwijzing naar een Ujst. Is 
de verwijzing niet gevuld, dan is het een lege plek, is 
de verwijzing gevuld, dan wijst deze pointer naar de 
informatie. In het brokje informatie, het zogenaam- 
de record, staat weer een dergehjke verwijzing. 

VuUen van de tabel en terugzoeken 

Bij hashing wordt de grootte van de tabel van tevo- 
ren vastgelegd. Een goede waarde is 1,1 a 1,2 maal 
het maximale aantal elementen dat opgeslagen moet 
worden. In alle elementen van deze tabel wordt aan- 
gegeven dat dit element leeg is. Vervolgens worden 
de elementen stuk voor stuk toegevoegd. Hierbij 
wordt de hash-functie op de sleutel losgelaten waar- 
na de hash-functie de index in de tabel oplevert. Nu 
zal het in de meeste gevallen zo zijn dat het element 
op die plaats in de tabel nog leeg is zodat dit ele- 
ment zondermeer gevuld kan worden. Is het element 
al wel gevuld, dan kan het zijn dat je twee maal de- 
zelfde key toe wilt voegen. Dat kim je controleren 
door de key van het element in de tabel te vergelij- 
ken met de key van het element dat je wilt toevoe- 
gen. Is dit niet het geval, dan heb je te maken met 
een coUision en moet je op een andere manier een 
lege plek zoeken. Zo kun je bijvoorbeeld eens gaan 
kijken of het eerstvolgende element in de tabel ge- 
vuld is en indien dit niet het geval is, deze gebruiken. 

Het terugzoeken gaat op precies dezelfde manier als 
het toevoegen. Je haalt de sleutel die je zoekt weer 
door de hash-functie die je een index oplevert waar 
het gezochte element zou moeten staan. Is dit ele- 
ment in de tabel niet gevuld, dan komt het gezochte 
element niet voor in de tabel; de gezochte persoon 



staat niet in het telefoonboek. Is het ekment gevuld, 
dan moet je de sleutel van het element in de tabel 
vergehjken met de gezochte sleutel. Zijn ze gehjk, 
dan heb je gevonden wat je zocht. Zijn ze niet gelijk, 
dan zoek je verder op dezelfde manier als die waar- 
op je collisions afhandelt net zo lang tot je het ge- 
zochte element gevonden hebt of totdat je stuit op 
een leeg element. In dat laatste geval komt het ge- 
zochte element niet voor in de tabel. 

Praktijkvoorbeeld 

In de bijgevoegde Hstings staat een praktijkvoor- 
beeld van hashing. De sources zijn een klein deel 
van de KGN-68k assembler die in het kader van de 
projectgroep ontwikkeld wordt. Hoewel de assem- 
bler nog lang niet af is, zijn de getoonde program- 
ma-delen uitgebreid getest en zijn ze redehjk 
foutvrij. 

De eerste hsting bevat de zogenaamde "Header file" 
KGN68k.h. Hierin staan een deel van de globale 
declaraties van de assembler. Waar ik vooral de aan- 
dacht op wil vestigen zijn de datastructuren t opco- 
de_Hst en t id hst. Dit zijn de elementen in 
respectievehjk de opcode-tabel en de labellijst. In 
een dergehjk element is de sleutel opgeslagen en wat 
extra gegevens zoals type cpu waarvoor de opcode 
geldt en de waarde van het label. Verder zijn er ver- 
wijzingen (pointers) naar het volgende en het vorige 
element en bij de labeUijst een verwijzing waarmee 
de lijst opgebouwd wordt gesorteerd volgens de 
volgorde waarin de labels toegevoegd worden. Deze 
laatste Hjst wordt later gebruikt om de symbol table 
in volgorde van definitie af te kunnen drukken. 

De eigenhjke opcode-tabel en labellijst bestaan uit 
de array's van pointers die resp. opcode table en 
ident table genoemd zijn. Bij de start van het pro- 
gramma worden aUe pointers op NULL geinitiaH- 
seerd. 

De verdere afhandeling van de tabellen staat in de 
source TABLES.C. Hierin staan een aantal routmes 
die van buiten aangeroepen kunnen worden te we- 
ten: initialize opcode table waarmee van een exter- 
ne file de opcode-tabel ingelezen wordt, get opcode 
waarmee een opcode opgevraagd kan worden, 
add identifier waarmee een label toegevoegd kan 
worden en uiteraard get identifier waarmee een la- 
bel teruggezocht wordt. 

Uiteraard staat ook de gebruikte hash-functie in de 
source die eigenhjk zeer eenvoudig is. 

In het programma-voorbeeld worden coUisions afge- 
handeld met behulp van een lineaire linked list. De 
opcode-tabel bestaat niet uit een array van records 
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maar uit een array van pointers naar die records. Als 
een element in de tabel niet gevuld is, dan bevat de- 
ze de pointer de waarde NULL. Is het element wel 
gevuld, dan bevat de pointer uiteraard het adres van 
dit record. In het record zelf zijn de pointers prev en 
next opgenomen die bij het aanmaken van het re- 
cord met NULL gevuld worden. Mochten we nu te 
maken krijgen met een collision, dan lopen we de 
keten van records langs de pointer next af totdat we 
aangeland zijn in een record waarvan next de waar- 
de NULL heeft. Vervolgens schrijven we in deze 
next het adres van het toegevoegde record en in de 
prev pointer in het toegevoegde record het adres 
van het tot dan laatste record in de keten. Deze 
techniek heeft een aantal voordelen. In de eerste 
plaats kunnen we nu meerdere malen dezelfde key 
gebruiken wat in de opcode-tabel ook zeker voor zal 
komen. Verder kimnen er, ondanks de beperkte 
grootte van de array van pointers, toch zoveel re- 
cords in de tabel opgenomen worden als waarvoor 
we geheugen hebben. Het zoeken zal echter wat lan- 
ger gaan duren omdat we in de lineaire Ujsten, die 
niet gesorteerd zijn, aUeen lineair kunnen zoeken. 

Afsluiting 

De techniek van hashing is in het programma-voor- 
beeld ingezet bij de ontwikkeling van een assembler. 



Dit is uiteraard niet de enige toepassing van hashing. 
Zo heb ik bijvoorbeeld in het verleden eens een 
soort kaartenbak-programma in Forth geschreven. 
De insiders weten dat in Forth een schijf opgedeeld 
is in blokken die aangesproken worden met behulp 
van him bloknummer. Ik had een record-definitie 
gemaakt die precies zo groot was als een Forth blok 
op schijf. Hierin stonden o.a. naam, adres en woon- 
plaats en nog wat andere gegevens. Vervolgens werd 
het bloknummer bepaald met behulp van een 
hashfunctie die toegepast werd op de naam. Op de- 
ze manier was bekend in welk blok de gegevens ge- 
schreven moesten worden of konden worden 
opgehaald. Ik zal voor de geinteresseerden dit pro- 
gramma, als ik het terug kan vinden, uploaden naar 
The Ultimate. 

Verder heb ik iedereen even in de keuken van de 
software groep van KGN-68k laten kijken. Mochten 
er mensen zijn die zich graag bij deze groep aan wil- 
len sluiten, laten die dan contact opnemen met 
Geert Stappers. Een beetje ervaring in het program- 
meren in C of 68000 assembler is dan wel zeer ge- 
wenst. 

Gert van Ophroek 



/* KGN68k_AS.H: 

Header file with global declarations. 

KGN68k assembler. 

Created by : G. van Opbroek/KIM Gebruikersclub Nederland 
Date : March 1992 



*/ 



Copyright (c) 1992: KIM Gebruikersclub Nederland 



#define C_OPCODE_TABLE 
#define C_IDENT_TABLE 
#define C_MAX_MNEMONIC 
#define C_MAX_ARGS 
#define C_MAX_IDENT 
#deflne C_MAX_OPERANDS 
#define OPCODE TABLE 
#define FALSE 
#define TRUE 
#define LINES PAGE 



/* Number of entries in the opcode table */ 
/* Number of entries in the identifier table */ 



1023 
2047 
12 
12 
20 

5 /* Maximum number of operands in an instruction */ 

"KGN68K.TBL" 
0; 

1; 

50 /* Maximun number of lines per page */ 



Fig, 2: Listing van KGN68k,h 



DcfiP Kenner, no. 76 (april '92) 



17 



Software . 



r 



/* Define constants for the options */ 



#deflne OPTIMIZE 1 

#define LIST 2 

#define QUIET 4 

#deflne SYMBOL 8 

#define EXACT 16 



/* Optimize code */ 
/* List */ 
/* Don't print warnings */ 
/* Print symbol table */ 
/* Don't translate to MOVEA etc.*/ 



/* Define the separators/terminators for an operand */ 

#define separator(a) (a= ="| |a= ='\t'| |a= =','| |a= =';'! ia= ='\0' 



'\n') 



typedef struct tocjist 
{ int index; 
char 

short unsigned 
long unsigned 
char 

struct t ocjist 
struct t ocjist 
} t_opcodeJist ; 



mnemonic [C_MAX_MNEMONIC + 1]; 
cputype; 
opcode; 

args [C_MAX_ARGS + 1]; 
*prev; 

*next; /* Used in case of collisions */ 



typedef struct t id list 
{ int index; 

char identifier [C_MAXJDENT + 1]; 
short valid; 

int line_number; /* Definition line number */ 
long unsigned value; 

*prev; 

*next; /* Used in case of collisions */ 
*sort; /* Link for sorted identifiers */ 



struct t id list 
struct t_id list 
struct tId Jist 
} t ident list ; 



typedef struct t ex result 
{ long result; 
int valid; 
int Issigned; 



/* Result is valid */ 
/* Result is signed/unsigned */ 
int highestjine; /* Used for forward references */ 
} t_valid ; 



/* Global data structures from source file KGN68k */ 

extern int error count, 

linecount, 

assembler fase; 
extern unsigned CPU_type, 
options; 

extern unsigned long location counter; 
extern char *assembler_fases[] ; 



extern topcodelist 
extern t ident list 
extern t ident list 
extern t ident list 



*opcode Jable [G_OPCODE_TABLE] ; 
*ident_table [CJDENT_TABLE]; 
*first; 
**sort; 
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extern FILE *source , 
*list , 
*bin ; 

extern char bin_out[255] ; 

/* Routines from source file TABLES */ 

short Int hash(char *string, int number); 
int initialize_opcode_table(void); 

int get_opcode(char *mnemonic, t opcodejist **element) ; 
int addjdentlfier(char *identlfier, unsigned long value, short valid); 
int get_identifier(char *identifier, tjdent list **element) ; 

/* Routines from source file EXPRESS */ 

int expression(char **string, long *partial_result, t valld *valid); 

/* Routines from source file ASSEMBLE */ 

int assembler(int pass); 

/* Routines from source file PSEUDO */ 

int pseudo_opcode(char **string,char *result); 

/* Routines from source file OPCODE */ 

int opcode(char **string, char *result); 

/* Routines from source file ADDRESS */ 

int operand_type(char **string, int operand, 

int *mode, int *reg, t valld *number); 

/* Routines from source file S records */ 

int s_format(int type, char *bin_out, char *string, FILE *bin); 
int s print (char *string, FILE *b!n); 
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/* TABLE. C: 

Handle opcode and identifier tables. 

KGN68k assembler. 

Created by : G. van Opbroek/KIM Gebruikersclub Nederland 
Date: March 1992 



Copyright (c) 1992: KIM Gebruikersclub Nederland 

*/ 

#include <stddef.h> 
#include <stdio.h> 
#include <alloc.h> 
#include <string.h> 
#include "kgn68k.h" 
#include "error.h" 

static short int hash(char *string, int number) 

{ short unsigned result = 0, 
index = 0; 

while (string[index]! = '\0') 

result = ((result < < 3 ) + (int) string[index+ +]) % number; 
return result ; 



int initialize_opcode_table(void) 

/* initialize the opcode table from OPCODE^TABLE 

* parameters : none 

* return : error = TRUE/FALSE 

*/ 

{ unsigned long ul; 
FILE *table; 

char string[132], /* should be enough */ 

*p,*s; 

t opcodejist *element,*q; 
int i, 

error = FALSE; 

/* 

* Initialisation of the global tables 
*/ 

p = OPCODE_TABLE; 
table = fopen(p,"r"); 
if (table = = NULL) 

error = process_error(F_OPC_NF,&p); 
if (! error) 



Fig. 3:sourcetekstvan TABLE S,C 



while (fgets(string,132,table) != NULL) 

{ if (string[0] = = "") /* This is an opcode definition */ 

{ element = (t_opcodeJist *) malloc(sizeof(t_opcode_list)); 

If (element = = NULL) 

error = process_error(F_OPC_MEM,&p); 

else 

{ /* clear opcode element */ 

element- > index = 

element- > cputype = 

element- > opcode = 
element- >mnemonic[0] = 
element- >args [0] = '\0'; 

element- >prev = 
element- > next = NULL; 

/* copy mnemonic */ 

i = 0; 

p = string + 1; 

s = element- > mnemonic; /* For errors */ 

while (*p ! = && *p ! = '\0'&& i < C_MAX_MNEMONIC) 
element- >mnemonic[i+ +] = *p + +; 
element- >mnemonic[i] = '\0'; 

if ((i > = C_MAX_MNEMONIC && *p ! = "") 1 1 *P = = '\0') 
error = process_error(F_OPC_MNM,&s); 

/* calculate index with the hash function */ 

element- > index = hash(element->mnemonic,C_OPCODE_TABLE); 

/* copy CPU type */ 

while ((*p < '0' 1 1 *p > '9' ) && *p ! = '\0') p + + ; 
if(*P '\0') 

error = process_error(F_OPC_CPU,&s); 
else 

if (*p = = '0' && tolower(*(p + 1)) = = 'X') 
sscanf(p,"%x",&(element- > cputype)); 
else 

if (*p = = '0') 

sscanf (p,"%o",&(element- > cputype)); 
else 

sscanf(p,"%d",&(element- > cputype)); 
/* copy opcode */ 

for (i = 1 ; i < = 2 ; i + +) 

{ while (*p ! = && *p ! = '\0') p + + ; 
while ((*p < '0' 1 1 *P > '9' ) && *P ! = '\0') p + + ; 
if(*p=='\0') 

error = process_error(F_OPC_OPC,&s); 

else 

if (*p = = '0' && tolower(*(p + 1)) = = 'X') 
sscanf(p,"%lx",&ul); 

else 
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if (*p = = '0') 

sscanf(p,"%lo",&ul); 

else 

sscanf(p,"%ld",&ul); 
if (lerror) element- > opcode = (element- > opcode < < 16) + ul; 

} 

/* copy arguments */ 

i = 0; 

while (*p I = && *p ! = '\0') p + + ; 

if (*p == "")p++; 
while (*p ! = "" && *p ! = '\0'&& i < C_MAX_ARGS) 
element- >args[i+ +] = *p + +; 

element- >args[i] = '\0'; 
if ((i > = C_MAX_ARGS && *p ! = "") | | *p = = '\0') 

error = process_error(F_OPC_ARG,&s); 

/* insert opcode element in the data structure */ 

if (opcode_table[element-> index] == NULL) 
opcode_table[element-> index] = element; 
else 

{q = opcode_table[element-> index]; 
while (q->next ! = NULL) q = q->next; 
q->next = element; 
q->prev = q; 
} 

}; 

} 

} 

return error = = FALSE; 

} 

int get_opcode(char *mnemonic, t opcodejist **element) 

/* Get an opcode from the opcode table 

* parameters : *mnemonic : mnemonic 

* *element : pointer to the opcode element 

* return : error = TRUE/FALSE 

*/ 

{ topcodejist *q; 
int index, 

error = FALSE ; 

★element = NULL; 

index = hash(mnemonic,C_OPGODE_TABLE); 
q = opcode_table[index] ; 

/* search opcode element in the data structure */ 

while( q ! = NULL && 

(strcmp(q-> mnemonic, mnemonic) ! = 0 1 1 
(q->cputype & CPU_type) = = 0 1 1 
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q->cputype & 1 < < 15 && 
options & EXACT)) 
q = q->next; 

if (q = = NULL 1 1 strcmp(q-> mnemonic, mnemonic) != 0) 
error = process_error(E_OPC_NF,&mnemonic); 

♦element = q; 

return error = = FALSE; 

} 

int addjdentifier(cliar *identifier, unsigned long value, short valid) 

/* Add an identifier to the identifier table 

* parameters : *identifier : identifier 

* value : value of the identifier (if valid) 

* valid : value = valid TRUE/FALSE 

* return : error = TRUE/FALSE 
*/ 

{ tjdentjist *element,*q; 

int error = FALSE; 

element = (tjdentjist *) malloc(sizeof (tjdentjist)); 
if (element = = NULL) 

error = process_error(FIDN_MEM,&identifier); 
else 

{ strcpy (element- > identifier, identifier); 

element- > index = hash(identifier,CJDENT_TABLE); 

element- > valid = valid; 

element- > value = value; 

element- >line_number = linecount; 

element- >prev = element- > next = element- > sort = NULL; 

/* insert identifier element in the data structure */ 

if (identtable[element-> index] = = NULL) 
{ ident table[element-> index] = element; 

*sort = element; 

sort = &element- > sort; 

} 

else 

{q = identtable[element-> index]; 

while (q->next ! = NULL && strcmp(q-> identifier, identifier) ! = 0) 
q = q->next; 

if (strcmp(q-> identifier, identifier) = = 0) 

{ error = process_error(W IDN_DUP,&identifier); 

q-> valid = valid; 

q-> value = value; 

free(element); 

} 

else 

{ q->next = element; 
q->prev = q; 
*sort = element; 
sort = &element->sort; 

} 
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} 
} 

return error = = FALSE; 



int getjdentifler(char *identifier, tjdentjist **element) 

/* Get an identifier from tlie identifier table 

* parameters : *identifier : identifier 

* *element : pointer to the identifier element 

* return : error = TRUE/FALSE 

*/ 

{ tjdentjist *q; 

int index, 

error = FALSE ; 

★element = NULL; 

index = hash(identifier,CJDENT_TABLE); 
q = ident table[index] ; 

/* search opcode element in the data structure */ 

while( q ! = NULL && strcmp(q-> identifier, identifier) ! = 0) 
q = q->next; 

if (q = = NULL | | strcmp(q-> identifier, identifier) ! = 0) 
if (assembler fase < = 1) 

error = process_error(WIDN_NF,&identifier); 

else 

error = process_error(EIDN_NF,&identifier); 

★element = q; 

return error = = FALSE; 

} 
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Systeem informatie via 4D0S 



De hier gepresenteerde 4DOS-4.0 batchfile kan ge- 
bruikt worden om informatie over uw computersys- 
teem te verkrijgen. Daamaast is het ook een aardig 
voorbeeld van de extra mogelijkheden die 4DOS 
biedt boven de nogal saaie command-interpretor 
van MS-DOS, Command.Com. De getoonde infor- 
matie kan op het scherm getoond worden, maar kan 
ook naar printer (hij controleert dan eerst even of 
de printer aanstaat) of logfile geschreven worden. 

Het begon allemaal toen ik wat informatie over mijn 
systeem wilde hebben op de tijden dat mijn mailer 
begon met zijn dageKjkse werk. Dat is de reden dat 
de informatie naar logfile geschreven wordt als de 
printer niet aanstaat; het is natuurhjk mogelijk dat ik 
vergeet om 's avonds de printer aan te zetten of dat 
het papier op is... Daamaast maakte ik een utility 
die de FrontDoor logfile even schoonmaakt voordat 
dat ding afgedrukt werd. Zo hoef ik de computer 
niet eens aan te zetten om te zien wat er 's nachts al- 
lemaal gebeurd is! Daamaast is zo'n logboek ver- 
draaid handig voor als ik eens niet thuis ben en 
iemand anders op m'n systeem past... 



Ik sta natuurlijk altijd open voor suggesties en aan- 
passingen. Stuur uw commentaar naar Wim Janssen 
op The Ultimate (Fidonet point 2:512/32.9). Ik 
draag er dan zorg voor dat deze batchfile netjes up- 
to-date bhjft en dat anderen ook nog gebruik kun- 
nen maken van uw verbeteringen! 

Wat algemene informatie: 

Programma : SysInfo.Btm, versie 3.0 
Auteur : Wim Janssen (2:512/32.9) 

Benodigde programmatuur: 4DOS 4.0 Bl of 40S2 
0.95 

Type "Syslnfo /?" voor hulp over de parameters. 

Wim Janssen 

Noot van de redactie: SysInfo.Btm is geschreven 
door een point van het BBS "The Ulthnate". Het 
programmaatje werkt heel aardig, maar je moet wel 
een hele bult extra environment ruimte definieren 
om de zaak aan de praat te helpen. De originele ar- 
chive is verkrijgbaar op The Ultimate onder de 
naam "4D-SI30.Zip". 



@Rem 




@Rem 


*** 4Dos/40s2 System Information *** 


@Rem 


By: Wim Janssen (2:51 2/32.9) 


@Rem 




@Rem 1 1 -4-92 1 .0 Original [4D0S] ( Message Area:4Dos ). 


@Rem 17-4 2.0 (*) Update to [40s2 0.95] By: Marcel Stikkelman (2:512/4) 


@Rem 


New Logging Routine 


©Rem 22-4 2.1 6 (*) Update ©Select 


©Rem 23-4 


2.1 (*) Alias 'Display' By: Marcel Stikkelman 


©Rem 25-4 


No ©Unique %lnfoFile anymore! 


©Rem 


'Display' has become '#' 


©Rem 


New functions/variables added 


©Rem 28-4 


Asking for a FormFeed on the printer 


©Rem 


© added that where missing in the end 


©Rem 29-4 


Inkey routine changed 


©Rem 30-4 


Alias '#' with printer corrected 


©Rem 


Coprocessor routine altered 


©Rem 01-5 


Added Echo, Log, Swapping, LoadBtm, Verify and Break 


©Rem 


LayOut Changed 


©Rem 01-5 


3.0 Upload: "The Ultimate" 


©Rem 


( Nodel 2:512/32 - Node2 2:512/308) 


©Rem 


(*) = Not Released 


©Rem ©Rem ..//..! = Edit next lines to one line 



Fig. 1: de batch-file SYSINFO.BTM 



Software 



@Rem 



©SetLocal 

@Set Version = SYSINFO (Version 3.0) 

@Set Author = By: Wim Janssen (2:512/32.9) 

@Rem = = = My Own _LastDisl< is always a RamDIsk! = = = 

@Rem = = = That's why, I can keep 4D-Slxxx.Btm! = = = 

@Set TempFile = %@Unique[%_LastDisk:\] 

@Set InfoFile = %_LastDisk:\4D-SI%DayNr.Btm 

@Rem = = = No Piping Into Input Under OS/2 = = = 
@Rem = = = This Has To Be Redirection = = = 
©Echo > %TempFile 

©Input %%EJO < %TempFile 

©If "%EJO" = = "ECHO is ON" Echo Off 
Log > %TempFile 

Input %%LJO < %TempFile 

If "%L_IO" = = "LOG is ON" Log Off 

©Rem ==== = Check Paranneters.. = ==== 

If "%1" NE "" .AND. "%1" NE "Prn" .AND. "%1" NE "Log" ( 

Gosub Help 

Goto Out 

) 

@Rem = = = Check for DOS/Windows or OS/2 = = = 
Iff "%_Win" EQ "" Then 

Set Escape = ^ 

SetOsType = OS2 
©Rem Not Used! 
©Rem Set Compound = 
Else 

©Rem Set Escape = [Ctrl-X][arl-X] !! 

Set Escape = 

SetOsType = DOS 
©Rem Not Used! 
©Rem Set Compound = ' ^ ' 
End iff 



@Rem = = = Some other useful variables = = = 
SetSpc = ' 
Set Length = 8 

Set Fill = %%©SubStr[%%Spc,1 ,%%©Eval[%%Length-%%©Len 

@Rem = = = These lines are in my AutoExec.Bat! = = = 

Set Day = %©Eval [%©Date[%_Date]-%©date[1 /1 /%©Substr[%_Date, 1 .-2]] + 1 ] 

Set DayNr = %©Substr[000,%©Len[%Day]]%Day 

Set WeekNr = %©lnt[%©Eval[(%DayNr + 2)/7 + 1 ]] 

©Rem English 

Set Day = SunMonTueWedThuFriSat . ^ 

Set Day =%©Word[%©Eval[%©lndex[%Day,%_Dow]/3].Sun Mon Tues Wednes Thurs Fn v 

Set^onth = %©Word[%©Substr[%_Date,3,2],Unknown January February March April May 
July August September October November December] 
©Rem Dutch 

©Rem Set Day = SunMonTueWedThuFriSat 
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@Rem Set Dag = %@Word[%@Eval[%@lndex[%Day,%_Dow]/3],zon maan dins woens donder vrij 
zater]dag 

@Rem Set Maand = %@Word[%@Substr[%_Date,3,2],Onbekend januari februarl maart april mei ju- 

nl juli augustus September oktober november december] 

@Rem 



If Exist %lnfoFlle ( 
Set Ans = 

InKey /W5 /K"yn" Scanning System Again? [Y/N] %%Ans 
If "%Ans" EQ "n" Goto Show 
Goto Begin 

) 

Goto Begin 
:VolumeLabel 

SetTmp = %@Upper[%@Label[%Drv:]] 
SetLength = 11 

Set Output = %Drv: %FIII[%Tmp]]]%Tmp% 
Iff %OsType = = DOS Then 
Set Output = %Output [%@Removable[%Drv:]] 
Else 

Set Length = 4 

Set Output = %OutPut [%@Fstype[%Drv:]%FIII[%@Fstype[%Drv:]]]]] 
Endlff 

Set Length = 8 

Echo # %OutPut Free: %FIII[%@DlskFree[%Drv:.K]]]]%@DlskFree[%Drv:,K] KB Total: 

%FIII[%@DlskTotal[%Drv:,K]]]]%@DlskTotal[%Drv:,K] KB > > %lnfoFile 

Return 

:ChkDrv 

Iff %@Ready[%Drv:] = = 1 Then 
Gosub VolumeLabel 
Else 

Iff %OsType = = DOS Then 

Echo # %Drv: [%@Removable[%Dn/:]] No Disk Found! > > %lnfoFlle 

Else 

Echo # %Drv: [ ] No Disk Found! > > %lnfoFlle 

Endlff 
Endlff 
Return 

: Begin 

Echo # %Day, %Month %@SubStr[%_Date,0,2] 19%@Substr[%_Date,6,2] > %lnfoFile 
Echo # DayNumber: %DayNr - WeekNumber: %WeekNr > > %lnfoFlle 

Echo # Booting from: %_Boot [%@Label[%_Boot:]] > > %lnfoFile 

Echo # LastDisk %_UstDisk: Current Directory: %@Upper[%_CWD] > > %lnfoFile 

©Rem QUESTION: 

@Rem Does anyone know another(better) solution for the next 15 lines? 

Ver/R > %TempFile 

Set Llne = %@Llne[%TempFlle,0] 

Iff "%Llne" NE Then 

Echo # Operating System: %Line > > %lnfoFile 

Else 
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Echo # Operating System: %@Line[%TempFlle.1] > > %lnfoFile 
End Iff 



Set Line = %@Line[%TempFiIe,2] 
Iff "%Line" NE "**EOF**" Then 

Echo # %Llne > > %lnfoFile 

Set Line = %@Llne[%TempFile,3] 

Iff "%Line" NE "**EOF**" Then 
Echo # %Line > > %lnfoFile 

Endiff 
Endiff 

Iff %_NDP = = 0 Then Set OutPut = 'No ' 

Else Set Output = '80%_NDP-' 

Endiff 

Echo # System CPU = 80%_CPU, %Output%CoProcessor Installed > > %lnfoFile 

If %_Ansi = = 1 Set OutPut = 
If %_Ansi = = 0 Set OutPut = 'No ' 

Echo # %@Upper[%_Video] Video Card, %_Rows Screen Rows, %Output%Ansi Driver Installed 
> > %lnfoFile 

Echo # Color is %_FG on %_BG. > > %lnfoFile 

Echo # Current Code Page Number: %_CodePage > > %lnfoFile 

If %_Mouse = = 1 Set OutPut = 
If %_Mouse = = 0 Set OutPut = 'No ' 

Echo # %Output%Mouse Driver Installed > > %lnfoFile 



Set Output = 'Current Batch Level: %_Batch.' 



lff%_Shell EQ 99 Then 

Echo # No Swapping Mode 4Dos. %Output > > %lnfoFile 

Elselff %_Transient EQ 1 Then 

Echo # Shell Level: %_Shell (Transient). %Output > > %lnfoFile 

Else Echo # Shell Level: %_Shell (Not Transient). %Output > > %lnfoFile 

Endiff 

Echo # Variables: Temp4Dos = %Temp4Dos , Temp = %Temp > > %lnfoFile 



Echo # %EJO , %L_IO > > %lnfoFile 
Echos '# ' > > %lnfoFile 
Swapping > > %lnfoFile 
Echos '# ' > > %lnfoFile 
LoadBtm > > %lnfoFile 
Echos '# ' > > %lnfoFile 
Verify > > %lnfoFile 
Echos '# ' > > %lnfoFile 
Break > > %lnfoFile 



Set Length = 8 

If %OsType = = DOS ( 

Echo # Alias Free: %Fill[%_Alias]]]%_Alias Bytes > > %lnfoFile 

Echo # Environment Free: %FiH[%_Env]]]%_Env Bytes > > %lnfoFile 

Echo # Base Memory Free: %FIII[%@DosMem[b]]]]%@DosMem[b] Bytes > > %lnfoFile 

Echo # XMS Memory Free: %Fill[%@XMS[b]]]]%@XMS[b] Bytes > > %lnfoFile 
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Echo # EMS Memory Free: %FIII[%@EMS[b]]]]%@EMS[b] Bytes > > %lnfoFlle 

) 

If %OsType = = 0S2 ( 

Echo # Base Memory Free: %Fill[%@DosMem[b]]]]%@DosMem[b] Bytes > > %lnfoFile 

) 

Set Drv = %_LastDisk 
: First 

If "%Drv" GE "A" Gosub ChkDrv 

Set Drv = %@Char[%@@Eval [%@Ascii[%Drv]-1 ]] 

If "%Drv" GE "A" Goto First 



:Show 

If "%1" EQ Set Device = Con 

Iff %Ostype = = DOS .AND. "%1" = = "Prn" Then 
Set Device = Log 

lf%@Lpt[3] == 1 Set Device = Lpt3 
lf%@Lpt[2] == 1 Set Device = Lpt2 
lf%@Lpt[1] == 1 Set Device = Lpt1 

If "%Device" = = "Log" Log ERROR [%Version]: Printer Not Ready! 
Endiff 

If "o/^v = = "Log" Set Device = Log 

Iff "%Device" NE "Log" Then 
Iff "%Device" EQ "Con" Then 

Keystack/W360 ! Left/W1 Right /W1 Left/W1 Right /W90 ! 27 
Set Option = %@Select[%lnfoFile, 0, 0, 25, 65, [ %Version ]] 
Keystack ! 

Iff "%Option" NE "" Then Alias # = 'Echo' 
%Option 

Else Echo %Version %Author 
Endiff 
Else 

@Rem My Printer Initialisation .... 
Copy/Q C:\Elite.Rx8 %Device >&>Nul 

Alias # = 'Echo %& > %Device' 
Echo *** %Version *** > %Device 
Call %lnfoFile >&>Nul 
Set Ans = 

Inkey /K"yn" /W5 Do You Want A FormFeed? [Y/N] %%Ans 
If "%Ans" EQ "y" Echo %Escape%f > %Device 
Endiff 
Else 

Alias # = 'Log' 

Echo %Version writing to 4%0sType LogFile ... 
Log Executing: %@Upper[%CmdLine] 
Call %lnfoFile >&>Nul 
Endiff 

Del /Q %TempFile 
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If "%LJO" = = "LOG is ON" Log On 
If "%EJO" = = "ECHO is ON" Echo On 
@Goto Out 

:Help 
CIS 

Echo %Version 
Echo %Author 
Text 

[4DOS4.0B1] 
[4OS2 0.95 ] 

Parameters : 

1 . 'Nothing' (to Screen) 

2. Prn (to Printer if ready, else to 4DOS/40S2 LogFile) 

3. Log (to 4DOS/40S2 LogFile) 

4. ?/Help (This Info) 
EndText 

Return 

:Out 

©EndLocal 
©Quit 



COM-file maker 



In dit blad staat regelmatig een sourcetekst van 
MASM/TASM, die moet uitmonden in een pro- 
grammaatje van het .COM-formaat. Cm dat te ma- 
ken moet je het eerst assembleren. Dan heb je een 
.OBJ-file. Dan moet er gelinkt worden: een .EXE-fi- 
le is het resultaat. Tenslotte moet dat bestand nog 
worden omgezet naar een .COM-file. Resultaat: je 
typt je compleet klem, vooral als dat allemaal niet de 
eerste keer goed gaat. Vandaar dit handige batch-fi- 
letje (MC.BAT) dat het allemaal keurig voor je 
doet: 

@ECHO OFF 

ECHO Assembleren van %1ASM... 

MASM %1 /ML /B63; > NUL 

IF EXIST %1.0BJ GOTO DOLINK 

ECHO Font bij het Assembleren. 

GOTO END 

:DOLINK 

ECHO LINKen van %1.0BJ... 
LINK%1; > NUL 



IF EXIST %1.EXE GOTO EXETWO 
ECHO Font bij het LINKen. 
GOTO END 
lEXETWO 

DEL %1.0BJ > NUL 

ECHO Converteren van %1.EXE naar %l.COM... 

EXE2BIN %1.EXE %1.C0M > NUL 

IF EXIST %l.COM GOTO DELEXE 

ECHO Font bij aanmaken %l.COM 

GOTO END 

iDELEXE 

DEL %1.EXE > NUL 
:END 

Om bijvoorbeeld TEST.ASM te assembleren tot 
TEST.COM, wordt er ingetypt: MC TEST. Veel ge- 
mak van dit bestandje toegewenst. 

Nico de Vries 
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Object georienteerd programmeren 



Zo af en toe verschijnt er in de computerwereld een 
meuw modewoord. Zo kun je de laatste maanden 
geen computerblad meer openslaan of er valt wel 
iets te lezen over het zogenaamde "multi-media" ge- 
beuren. Wat dat precies is schijnt niemand te weten, 
maar het heeft in ieder geval te maken met de inte- 
gratie van (hoge) beeld- en geluidskwaHteit op de 
PC (So, what's new?)... 

Een jaar terug stonden de bladen vol van "object 
georienteerd programmeren" (afgekort tot "OOP"). 
Het maakte niets meer uit of je programma wel 
werkte, zolang het maar object georienteerd was ge- 
bouwd, leek het wel. In dat ene jaar bleek toch wel 
dat OOP meer was dan een "officiele" methode van 
programmeren die in feite al jaren werd toegepast. 
In dit artikel zal ik aan de hand van een eenvoudige 
functie-evaluator proberen het OOP-gebem-en (of 
eigenHjk: het OOP-denken) nader toe te hchten. Dit 
stukje programmatuur leest van het toetsenbord een 
expressie in en evalueert deze. Een soort eenvoudige 
rekenmachine dus... 

Notatie methoden 

Voor ik kan beginnen met mijn uitleg over onze ob- 
ject georienteerde parser zal ik eerst wat uitleggen 
over de werking van parsers in het algemeen. De 
parser accepteert, net zoals iedere normale reken- 
machine dat doet, uitdrukkingen in zogenaamde in- 
fix notatie. Dat betekent dat de binaire operators 
(dat wil zeggen: de rekenkundige basisfuncties die 
betrekking hebben op twee waarden zoals de optel- 
ling en vermenigvuldiging) tussen de beide operands 
staan. Voor computers is het veel eenvoudiger om te 
werken met behulp van de zogenaamde postfix nota- 
tie of RPN (Reversed PoUsh Notation). Hierbij 
staan de binaire operators na de operands; in plaats 
van "a + b" schrijven we dan "a b + ". Om dit uit te 
rekenen maken we dan gebruik van een rekenstack 
waar aUe tussenresultaten op bewaard kunnen wor- 
den. De uitdrukking "a b +" kunnen we dan om- 
schrijven als: 
push a 
pushb 
add 

De add-operator popt de twee getaUen van reken- 
stack, telt ze bij elkaar op en pusht het resultaat te- 
rug op rekenstack. 

Naast deze twee notaties bestaat er ook de zoge- 
naamde prefix notatie, waarbij de operators voor de 
operands staan. Deze notatie methode is uitgevon- 
den door de Poolse logicus Jan Ljukasiewicz (1878- 
1956). Zijn schrijfmethode had als grootste voordeel 
boven de normale infix notatie dat het gebruik van 
haakjes niet nodig was. Hij schreef bijvoorbeeld "* 



+ 2 3 + 4 5" in plaats van "(2 + 3) * (4 + 5)". In 
RPN zouden we "2 3 -h 4 5 + *" schrijven. Dat het 
allemaal veel eenvoudiger wordt door het probleem 
in OOP op te lossen zal verderop bhjken... 

De parser tree 

Om onze rekenmachine te kunnen laten rekenen 
moeten we ingevoerde expressie van infix notatie 
omzetten naar de postfix notatie. Dit gaat het een- 
voudigst met een binaire boom, de zogenaamde 
"parser tree". De knooppunten (nodes) van deze 
boom bevatten steeds een operator en de bladeren 
bevatten steeds variabelen of constante waarden. 
We kunnen nu een recursieve functie schrijven die 
de hele boom afloopt en globaal het volgende doet: 



1. 
2. 
3. 



Loop eerst recursief de linker sub-boom door 
Loop recursief de rechter sub-boom door 
Voer de knooppunt berekening uit voor de 
twee verkregen waarden 
Retoumeer het resultaat van de knooppunt ex- 
pressie 



De stopvoorwaarde voor onze recursieve functie is 
bereikt als er geen sub-bomen zijn. We hebben dan 
dus te maken met een eindpunt (een blad) in plaats 
van een node. Voor bladeren geldt in prindpe het- 
zelfde als voor functies; ze retourneren alleen niet 
het resultaat van een berekening maar de waarde 
van de opgeslagen constante of variabele. 

Ter illustratie de eerder genoemde expressie "(2 + 
3) * (4 + 5)". Deze expressie zetten we voor het ge- 
mak eerst even met de hand om in postfix notatie: 2 
^ + 45 + *. Hieruit kan op eenvoudige wijze een 
parsertree gedestilleerd worden (zie figuur 1). 




Fig. L'De parsertree voor (2+ 3)* (4 +5) 
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Object georienteerdheid 

Vroeger moest er moeizaam geknoeid 
worden met variant records ("unions" 
voor de C-freaks) die alleen herkenbaar 
waren aan een typeaanduiding in het re- 
cord zelf. Voor het rekenwerk moest er 
dan een grote routine geschreven worden 
waarin alle bekende operators in een 
groot CASE-statement verwerkt konden 
worden. Een nieuwe operator toevoegen 
betekende dan een enorm geknoei in dat 
CASE statement. In OOP definieren we 
geen variant records meer maar zoge- 
naamde objecten. Op het eerste gezicht 
lijkt een object heel sterk op een record. 
Een object heeft echter meer mogelijkhe- 
den! Allereerst kan aan een object een 
stuk code gekoppeld wofden. Deze code (in de 
vorm van een procedure of functie) is onlosmakelijk 
verbonden met het object. Deze functies die gekop- 
peld zijn aan een object worden ook wel "methods" 
genoemd. Het totale object zou er dan zo uit kunnen 
zien: 

TYPE add = OBJECT 
a,b : Integer; 
FUNCTION eval : Integer; 
END; {OBJECT add} 

FUNCTION add.eval : integer; 
BEGIN 

add.eval : = a + b 
END; { FUNCTION eval } 

Merk op dat de functiedefinitie bij de object defini- 
tie hoort! De parameters "a" en 'V hebben betrek- 
king op de gelijknamige velden in het object. 

Een ander aardig kenmerk van objecten is hun zoge- 
naamde "overerfbaarheid". In het voorbeeld pro- 
gramma maken we gebruik van een object met de 
naam "node". Dit object dient als basis voor de ove- 
rige object definities. Alle kinderen van dit basisob- 
ject krijgen automatisch alles mee dat in dit basis 
object gedefinieerd is. Een voorbeeld: 

TYPE ncxJeptr = "^node; 
node = OBJECT 

lefttree : nodeptr; 

righttree : nodeptr; 

FUNCTION eval : Integer; 
END; { OBJECT node } 

FUNCTION node.eval : integer; 
BEGIN 

END; { FUNCTION node.eval } 



TYPE add = OBJECT(node) 

FUNCTION eval : integer; 
END; { OBJECT add } 

FUNCTION add.eval : integer; 
BEGIN 

add.eval := lefttree^. eval + righttree-^ .eval 
END; { FUNCTION add.eval } 



Fig. 2: kind van het basis-object 



De functie node.eval heeft geen code. Hij is er 
slechts om aan te geven dat alle kinderen van "node" 
een gelijksoortige evaluatie-functie hebben. We 
breiden ons add-object uit tot een kind van dit basis- 
object: zie figuur 2. 

Door het gereserveerde woord "OBJECT" te laten 
volgen door de naam van het basis-object geven we 
aan dat "add" een directe afstammeling is van node. 
De herdefinitie van de method "eval" geeft aan dat 
"add" zijn eigen interpretatie heeft van deze functie. 
In dit geval dus de som van een evaluatie van een lin- 
kerboom en een evaluatie van de rechterboom. He- 
lemaal volledig zijn deze objectdefinities nog niet. 
De extra functies in het voorbeeld programma zijn 
sterk taal-afhankeUjk en een gedetailleerde om- 
schrijving van hun werking kunt u eenvoudig vinden 
m de OOP-guide van Borland. 

Onze parsertree krijgt nu een lets ander gezicht. 
Voor ons voorbeeld hebben we drie objecten nodig: 
een value-object, een add-object en een mul-object. 
De definitie van het value-object is afwijkend van de 
overige objecten in die zin dat er geen sub-tree's aan 
het geheel vastzitten. Het resultaat van zijn eval-me- 
thod is niet afhankelijk van een tweetal sub-vertak- 
kingen, maar van een opgeslagen waarde. Deze 
waarde wordt dan ook in het object opgenomen: 

TYPE value = OBJECT(node) 
fresult : integer; 
FUNCTION eval : integer; 
END; {OBJECT value} 

FUNCTION value.eval : integer; 
BEGIN 

value.eval : = fresult 
END; { FUNCTION value.eval } 

Nieuwe operators zijn nu eenvoudig toe te voegen. 
De scanner moet uitgebreid worden zodat hij ook de 
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nieuwe tokens herkent en er moet een object met 
bijbehorende routines bijgeschreven worden. Het is 
nu eenvoudig in te zien dat we het hele postfix ge- 
beuren met een ingewikkelde extra rekenstack over- 
bodig gemaakt hebben. Voor het bouwen van een 
compiler waarbij werkende code gegenereerd moet 
worden gaat ons verhaal helaas maar heel ten dele 
op. De OOP-parsertree is nog best bruikbaar, alleen 
kunnen de functies van zo'n tree nu geen directe re- 
sultaten leveren maar zuUen code moeten gaan ge- 
nereren. En die resulterende code kan het 
eenvoudigst de "ouderwetse" postfix-manier gebrui- 
ken. 

Object oriented programming is dus niet zo maar 
een loze kreet. We kunnen er met wat soepeler 



denkwerk hele leuke dingen mee doen! Nu weet ik 
dat de "echte programmeur" nogal conservatief in- 
gesteld is en weinig of niet geneigd zal zijn nieuwe 
programmeer-methoden aan te leren. OOP heeft de 
originele interessante programmeertechniek die 
voor het parser-probleem nodig was gedeeltehjk 
overbodig gemaakt. In de praktijk betekent zoiets 
dat je een stukje parate kennis wel overboord kxmt 
gooien... Toch zijn dit soort innovaties nodig om 
(steeds ingewikkelder wordende!) computers effi- 
cienter te kunnen programmeren. Geen overbodige 
nieuwerwetsheid dus! 

Joost Voorhaar 



PROGRAM parser; 

{ Copyright (c) 1992, J. Voorhaar - Alle rechten voorbehouden } 
{ Gehcenseerd voor publicatie aan de KIM Gebruikersclub Nederland } 

i . } 

{ Dit programma demonstreert OOP aan de hand van een eenvoudige parser. } 
{ Compiler: TurboPascal 5.5 | 

I } 

{ De volgende prioriteiten en operators worden gehanteerd: } 
{ Prio. Operator } 
{ $80 */% (mul, div, mod) } 
{ $70 + - (add, sub) } 

{ . } 

{ De unaire - (negatieve getallen!) wordt niet ondersteund. Wil men toch } 
{ negatieve getallen invoeren, dan kan dat door de expressie 0 - getal te } 
{ gebruiken. Implementatie van deze unaire min^ haakjes en andere operators } 
{ wordt aan de lezer overgelaten "ter leering ende vermaeck". } 

USES crt; 

TYPE restype = longint; 
nodeptr = ^node; 

node = OBJECT { De oer-ouder } 

left,right : nodeptr; { Linker- en rechter subtree } 

FUNCTION eval : restype; VIRTUAL; { Retoumeert subtree resultaat } 
PROCEDURE print; VIRTUAL; { Geeft waarde of type object } 

CONSTRUCTOR init; { Nodig voor initiaUsatie } 

END; {OBJECT node} 

valobj = OBJECT(node) { Defmitie van een constante } 

result : restype; 

FUNCTION eval : restype; VIRTUAL; 
PROCEDURE print; VIRTUAL; 
CONSTRUCTOR init(strg : string); 
END; {OBJECT valobj} 

addobj = OBJECT(node) { Definitie van een optelling } 
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FUNCTION eval : restype; VIRTUAL; 
PROCEDURE print; VIRTUAL; 
CONSTRUCTOR init; 
END; { OBJECT addobj } 

subobj = OBJECT(node) { Definitie van een aftrekking } 

FUNCTION eval : restype; VIRTUAL; 

PROCEDURE print; VIRTUAL; 

CONSTRUCTOR init; 
END; { OBJECT subobj } 

mulobj = OBJECT(node) { Definitie van een vermenigvuldiging } 

FUNCTION eval : restype; VIRTUAL; 

PROCEDURE print; VIRTUAL; 

CONSTRUCTOR init; 
END; { OBJECT mulobj } 

divobj = OBJECT(node) { Definitie van een deling } 

FUNCTION eval : restype; VIRTUAL; 

PROCEDURE print; VIRTUAL; 

CONSTRUCTOR init; 
END; { OBJECT divobj } 

modobj = OBJECT(node) { Definitie van een rest deling } 

FUNCTION eval : restype; VIRTUAL; 

PROCEDURE print; VIRTUAL; 

CONSTRUCTOR init; 
END; { OBJECT mod } 

VAR errorcnt : word; { Aantal errors } 

PROCEDURE error(msg : string); { Geeft een foutmeldii^ } 
BEGIN 

writelnCError: ',msg); 
inc(errorcnt) 
END; { PROCEDURE error } 

{ De volgende constructors zijn slechts gedefinieerd omdat TP ze nodig heeft } 
{ bij het linken van de virtual methode table. } 

CONSTRUCTOR node.init; BEGIN END; 
CONSTRUCTOR addobj.init; BEGIN END; 
CONSTRUCTOR subobj.init; BEGIN END; 
CONSTRUCTOR mulobj.init; BEGIN END; 
CONSTRUCTOR divobj.init; BEGIN END; 
CONSTRUCTOR modobj.init; BEGIN END; 

{ Een uitzondering op de bovenstaande constructors is de constructor van } 
{ valobj; die heeft namelijk een parameter nodig! } 

CONSTRUCTOR valobj. init (strg : string); 
VAR errpos : integer; 
BEGIN 

WHILE (strg ") AND (strg[l] IN [' ',#9]) DO 
delete(strg,l,l); { Delete preceeding whitespaces } 
errpos : = length(strg); 
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WHILE (errpos 0) AND (strg[errpos] IN [' ',#9]) DO 
dec(errpos); 

strg : = copy(strg,l,errpos); { And delete terminating whitespaces } 
val(strg,result,errpos) ; 
IF errpos 0 THEN 
error('illegal character in value + strg + ""); 
END; { CONSTRUCTOR valopbj.init } 

{ De evaluatie fimctie voor het parent object, is slechts noodzakelijk om } 
{ TurboPascal tevreden te stellen... } 

FUNCTION node.eval : restype; BEGIN END; 

FUNCTION valobj.eval : restype; BEGIN eval : = result END; 

FUNCTION addobj.eval : restype; BEGIN eval : = left ^ .eval + right ^ .eval; END; 

FUNCTION subobj.eval : restype; BEGIN eval : = left ^ .eval - right ^ .eval; END; 

FUNCTION mulobj.eval : restype; BEGIN eval : = left .eval * right .eval; END; 

FUNCTION divobj.eval : restype; BEGIN eval : = left ^ .eval DIV right ^ .eval; END; 

FUNCTION modobj.eval : restype; BEGIN eval : = left .eval MOD right .eval; END; 

{ De print-procedure van node is wederom slechts noodzakeUjk om TP niet } 
{ teleur te stellen... } 

PROCEDURE node.print; BEGIN END; 
PROCEDURE valobj.print; BEGIN write(result/ 0; END; 
PROCEDURE addobj.print; BEGIN write(' + '); END; 
PROCEDURE subobj.print; BEGIN writeC- '); END; 
PROCEDURE mulobj.print; BEGIN writeC* 0; END; 
PROCEDURE divobj.print; BEGIN write(V END; 
PROCEDURE modobj.print; BEGIN writeC% END; 

{ Hier volgt de eigenlijke scanner voor het opzetten van de parsertree } 
{ De scanner zoekt steeds een breekpimt in de string; dit is altijd de } 
{ operator met de laagste prioriteit. Vervolgens roept de scanner zichzelf } 
{ aan om zijn linker- en rechter subtree te bepalen. Als de parameter uit } 
{ een reeks digits bestaat hebben we een blad bereikt. De string bevat dan } 
{ de waarde van de constante. Als er ergens een fout gedetecteerd wordt } 
{ geeft de scanner de fout weer en increment de error-counter. De tree } 
{ retourneert dan een NIL. } 



FUNCTION scan(expstr : string) : nodeptr; 
VAR index : integer; 
break : byte; 

prio : byte; { Minimale prioriteit } 
help : nodeptr; 

valhelp : valobj ABSOLUTE help; { Deze ABSOLUTE statements maken het } 
addhelp : ^ addobj ABSOLUTE help; { mogehjk om op eenvoudige wijze het } 
subhelp : subobj ABSOLUTE help; { object te kunnen initiaHseren. } 
mulhelp : ^mulobj ABSOLUTE help; { Door slechts 1 object te alloceren } 
divhelp : ^ divobj ABSOLUTE help; { met "new" worden al deze variabelen } 
modhelp : ^ modobj ABSOLUTE help; { tegehjk gevuld! } 
BEGIN 

help:= NIL; 

break : = 0; 

prio : = $FF; { Begin met maximale prioriteit } 
FOR index : = 1 TO length(expstr) DO 
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IF errorcnt = 0 THEN 
CASE expstr[mdex] OF 

' ',#9 : ; { Spaties overslaan a.u.b.! } 
'0'..'9' : ; { Voorlopig ook geen digits... } 
' + : IF prio $70 THEN { Nieuw breekpunt! } 
BEGIN 

break : = index; 
prio : = $70 
END; 

'*',T,'%' : IF prio $80 THEN { Nieuw breekpunt gevonden! } 
BEGIN 

break : = index; 
prio : == $80 
END; 

ELSE errorCunknown symbol + expstr[index] + ""); 
END; { CASE } 
IF errorcnt = OTHEN 
IF break = OTHEN 
BEGIN 
new(valhelp,init(expstr)); 
vallielp^.left:= NIL; 
valhelp ^ .right : = NIL; 
END {IF} 
ELSE 
BEGIN 
CASE expstr[break] OF 
: new(midlielp,init); 
V : new(divhelp,init); 

: new(modlielp,imt); 
' -I- ' : new(addhelp,imt); 

: new(subhelp,init); 
END; { CASE } 

help ^ .left : = scaii(copy(expstr,l,break - 1)); 
help ^. right := scan(copy(expstr,break + 1,255)); 
IF (help ^ .left = NIL) OR (help ^ .right = NIL) THEN 
help : = NIL; 
END; { ELSE } 
scan : = help; 

END; { FUNCTION scan } 

{ Printpost print de boom uit in postfix notatie } 

PROCEDURE printpost(nptr : nodeptr); 
BEGIN 

IFnptr^.left NIL THEN 

printpost(nptr ^ .left); 
IFnptr^.ri^t NIL THEN 

printpost (nptr ^ .right); 
nptr ^ .print; 

END; { PROCEDURE printtree } 

VAR strg : string; 

tree : nodeptr; 

garbage : pointer; 
BEGIN 

textattr : = hghtgray; { Grijze letters op een zwarte achtergrond } 
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clrscr; { Begin met een leeg schenn } 

writelnCParser OOP demo - Copyright (c) 1992, J.Voorhaar'); 

writelnCLicensed to the KIM Usergroup Holland (KGN) for pubUcation purposes only); 
writeln; 

writeln('Enter integer expressions on the prompt, or an empty line to quit.'); 
window(l,6,80,25); 
writeC: '); 
readln(strg); 
WHILE strg " DO 
BEGIN 

mark(garbage); 

errorcnt : = 0; 

tree : = scan(strg); 

IF (tree NIL) AND (errorcnt = 0) THEN 
BEGIN 

write(Tostfix: '); 

printpost(tree); 

writeln; 

writeln('Result : ',tree ^ .eval); 
END; { IF } 

release(garbage); { De tree mag nu in z'n geheel weg! } 
writeln; 
writef: '); 
readln(strg); 
END; { WHILE } 
writeln; 

writelnCGoodbye!'); 
window(l,l,80,25); 
gotoxy(l,24); 
END. 
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Voortgang KGN-68k (deel 6) 



De tijd tussen dit nummer van de fX? Kenner en de 
vorige is kort geweest. En in een korte tijd kun je 
niet zoveel vooruitgang boeken. Uit de winterstop is 
de werkgroep nog niet helemaal, de vaart zit er niet 
meer zo goed in als in het begin. 

Printed Circuit Board 

Wat er nu ondertussen wel vast staan zijn de maten 
van de printplaat, het bord zal 12 bij 13,2 inch groot 
worden. Niet de insteekkaart waar we in het begin 
van uit wilden gaan, maar zoiets heet ontwikkeling. 
Je het kunt ook overschrijding van specificaties noe- 
men, maar de werkgroep vindt dit toch nog steeds 
de meeste ideale oplossing. 

Software 

De Software zaken zijn nog steeds niet lekker aan 
het rollen, er zit wel beweging in maar het gaat met 
horten en stoten. Bedenk wel dat je een programma 
achteraf makkelijker hebt aangepast dan een printed 
circuit board. 



Geld & Auto's 

Prijstechnisch gezien zal de strijd met de concurren- 
tie steeds moeilijker worden. De i80386DX machi- 
nes worden namelijk steeds goedkoper en daar kun 
je ook MINIX 32-bits breed opdraaien. De prijs is 
gelukkig niet altijd de besHssende factor, anders 
zouden er toch veel meer Oost-Europese auto's in 
Nederland verkocht worden. Automobielen zijn ei- 
genhjk bedoeld om te rijden en dat doen de meeste 
mensen dan ook. Maar voor auto-monteurs is het 
meer dan een transportmiddel. Kenners kijken nou 
eenmaal toch anders tegen (gebruiks)voorwerpen 
aan. 

Tendens 

In een oogopslag kunt je zien dat het verslag van de 
voortgang weer korter is als de vorige keer. Pessi- 
misten & doemdenkers zullen zeggen: "Zie je wel, 
een aflopende zaak." Nee, er is nog steeds sprake 
van voortgang. U/Je weet het, reacties zijn altijd wel- 
kom. 

Geert Stoppers 



Voortgang KGN-68k 



Het is niet overtuigend om te vertellen dat het KGN- 
68k project nog bestaat en dat er dan niets van in De 
fi? Kenner staat. Als het goed gaat staan er dan in 
dit nummer dan ook twee afleveringen in. Beter laat 
dan nooit, maar beter nooit te laat. 

Printed Circuit Board 

Tijdens het ontwerp van de printplaat zijn we al een 
keer tegen de grens aangelopen van het printont- 
werppakket. Nu is het weer gebeurd, we zijn echt 
met een gigantische brok techniek bezig. De lay-ou- 
ter kwam met de opmerking dat het pakket veel 
minder geheugen rapporteert dan er in de machine 
zit. Navraag bij Ultimate technology leverde de be- 
vestiging op dat we boven de limiet van Ultiboard 
Advanced Level zaten. Met de huidige versie zullen 
we het board niet af kunnen maken. Op dit moment 
werken we met een tijdeUjke oplossing. De connec- 
tors waar alle MC68030 signalen op zitten, zijn alle- 
maal op een na vervangen door een component met 
maar een pin om zo onder de 2800 pinnen grens van 
het pakket te komen. 2k)nder dat dit belangrijk stuk 
werk stil valt, wordt er onder tussen gezocht naar 
een oplossing om op het einde die laatste konnec- 
tors aan te sluiten en de plotfiles te maken. Als bij U 



op de zaak deze handehngen verricht kunnen wor- 
den, lets wat niet langer dan een halve dag duurt, 
zouden wij dit graag vememen. 

Software 

In de software hoek worden ondertussen ook bergen 
verzet. Er wordt ijverig gebouwd aan een 680X0 as- 
sembler. Op het eerste gezicht iet wat overbodig 
werk, want achtenzestigduizend (cross-) assemblers 
zijn er toch al lang. De trunk zit hem in het feit dat 
hij ook geschikt is voor de MC68020 & MC68030. 
Hierbij kwam de documentatie die we van EBV 
Elektronik gekregen goed van pas. Verder nog het 
voordeel dat we hem in (C-)source hebben. Dit be- 
tekent dat hij naar beheven (binnen redeUjke gren- 
zen) aangepast kan worden en dat we hem straks 
mee kunnen nemen naar MINIX. 

Afsluiting 

Dit is eigenhjk standaard werk: Laat de op- en aan- 
merkingen maar komen! 

Geert Stoppers 
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Nieuwtjes en andere wetenswaardigheden, soms met een knipoog 



Het is mijn bedoeling om een vaste column toe te 
voegen aan ons lijfblad, De inhoud hiervan is min of 
meer in de kop al omschreven, Waar haal je die 
nieuwtjes weg kun je je afvragen. Dat lijkt moeilijker 
dan het is. Ik zal in eerste instantie materiaal uit an- 
dere computerbladen halen, maar ook de dagelijkse 
krant geeft soms interessante info. Verder zal ik 
oren en ogen open houden. Je weet maar nooit, 
soms ligt de beste informatie gewoon op straat of op 
je deurmat. 

Denk je dat je zelf lets leuks of interessants hebt laat 
het me dan even weten, mijn telefoonnummer en 
adres kun je op de laatste pagina van ons lijfblad vin- 
den. Mensen met een modem kunnen natuurUjk ook 
gebruik maken van ons bulletinboard. Schroom ook 
niet om kritiek te uiten. Het is uiteindelijk juUie 
blad. De statuten staan ons echter niet toe om het 
principe van 'niet goed geld terug' toe te passen. 
Dus als het niet goed gaat, laat dan wat van je horen! 

CHECKIT-LAN Versie 2.0 

ToachStone heeft een nieuwe versie van het netwerk 
diagnoseprogramma uitgebracht. Checklt-LAN 2.0 
is een programma waarmee de netwerkbeheerder 
een overzicht krijgt van de aangesloten hardware. 
Tevens is hij in staat om te kijken welke software er 
op de verschillende stations in gebruik zijn. Perfor- 
mance en viruscontrole is ook aan deze versie toege- 
voegd. T.o.v. de vorige versie zijn er verbeteringen 
aangebracht m.b.t. het aantal voorgedefinieerde pro- 
gramma's waarop getest kan worden, automatische 
alarmering en je kan belangrijke boodschappen 
doorschakelen naar een willekeurige terminal. Het 
prijskaartje hangt tussen de $ 249, = = voor 5 ge- 
bruikers en $ 1955, = = voor 250 gebruikers. 



Microsoft Informatie 

Microsoft heeft in Nederland een BBS. Ze hebben 
daar de originele naam MICROSOFT BBS voor be- 
dacht. Het is bereikbaar onder telefoonnmnmer: 
02503-34221. De vereiste instellingen zijn 1200 of 
2400 baud, 8 bits, 1 stopbitje en non-parity. Er is een 
database met meer dan 30.000 informatieblokken 
over MicroSoft-produkten (ik heb ze niet geteld, als 
het niet waar is lieg ik in commissie). 

Travelpilot 

Handig voor verdwaalde bestuursleden is de Travel- 
pilot. Het Amerikaanse blad 'Popular Sience' heeft 
de Travelpilot uitgekozen als een van de honderd 
beste nieuwe produkten van 1991. Met behulp van 
een boordcomputer, CD-ROM met een compleet 
wegennet, beeldscherm, elektronisch kompas en 
wielsensoren word(en)t de bestuurder(s) de weg ge- 
wezen. Met een dergehjk pilootje in de auto heeft 
uw bestuur nooit meer het excuus om te laat te ko- 
men omdat ze verdwaald zijn. 

De PTT doet aan klantenbinding, maar laat 
particulieren betalen 

Wij mogen ons verheugen dat wij de laagste binnen- 
landse telefoontarieven hebben binnen Europa. De 
PTT verwacht echter zware concurrentie uit het bui- 
tenland. Omdat op te vangen denkt de PTT erover 
om telefoonverkeer met het buitenland goedkoper 
te maken. Ze sluiten niet uit dat dan de binnenland- 
se tarieven duurder zullen worden. Omdat bedrijven 
meer gebruik maken van intemationaal telefoon ver- 
keer dan particuHeren kun je op je vingers natellen 
dat de laatste groep dadeUjk voor de kosten op mag 
draaien. 



(Advertentie) 



Telefonische veiling DOS-65 computer! 



Te koop aangeboden: 

Uitgebreide Jimior 6502 computer met: 

• Elektuur grote buskaart 

• Elektuur VDU kaart 

• Elektuur dynamische 64 KRAM kaart 

• Elecktuur statische 64 KRAM kaart (bevat 16k) 

• Zelfbouw I/O kaart (2 * 6522, pieper, etc.) 

• Elektuiu" voeding met cassettedeck 

• Elektuur toetsenbord 

• DOS-65 disk controller kaart 

• 2 floppy drives met ingebouwde voeding 



• DOS-65 software en documentatie 

• DATAPOINT terminal, bruikbaar als monitor 
Alles eventueel met Junior boeken en 6502 bladen 



Prijs: 



Inlichtingen: 
Telefoon: 



hoogste (telefonische) bod voor/op de 
laatste dag van de maand waarin deze 
editie verschijnt. Minimum prijs 100 
gulden 
Jeroen Oort 
020-6866740 ('s avonds) 
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De hereniging 



In fji? Kenner 75 heeft u een programma kunnen 
aantreffen, dat van een file twee nieuwe maakte, een 
met de even, en een met de oneven bytes erin. Ook 
werd daarbij beloofd, dat het omgekeerde er ook 
was, namelijk twee files met elk even en oneven by- 
tes weer samenvoegen tot de oorspronkelijke file. 
Wei, hier is 'ie dan. SHUFFLE.EXE heet het. 

Dit programma is absoluut niet wereldschokkend als 
u reeds SPLIT ASM heeft bestudeerd: de opbouw 
en stijl van programmeren zijn vrijwel identiek. Ook 
hier wordt gebriuk gemaakt van handles, terwijl een 



aantal subroutines zelfs precies hetzelfde zijn. Dat 
Hgt ook wel voor de hand: want in plaats van lezen 
wordt er geschreven in files en omgekeerd ten op- 
zichte van SPLIT ASM. 

Misschien moet ik een paar kleine excuses aanbie- 
den wegens het plegen van moedwillige bladvulling, 
maar Uever compleet dan half. . . 

Nico de Vries 



Merge odd and even input files into one 16-bit file 



NAME SHUFFLE 
PAGE 66,131 
TITLE SHUFFLE — 



**************************************** 
»* 

;* SHUFFLE Version 1.0 

1* 

;* Merges two input fiiles into one 
;* output file. The first input fiile 
;* must have extension .LO and will 
;* supply all even bytes in the output 
;* file, the second input file must 
;* have extension .HI and will supply 
;* all odd bytes. 

;* In case the input files have dif- 
;* ferent lengths, the output file will 
;* have a lei^th of twice the length 
;* of the longest input file; the 
;* missing bytes wil be filled with 
;* a zero value. 

;* The input files inherit their path 
;* and file name fi*om the output file, 
;* but their extensions will be .LO and 
;* .HI by default. 
•* 

;* Note that the file naming system is 
;* compatible with that of SPLIT.EXE. 
•* 

;* Syntax: 

;* SHUFFLE [d:][path]filename[.ext] 
•* 

;* To create SHUFFLE.EXE: 

;* MASM SHUFFLE; 

;* LINK SHUFFLE,TEMP; 

;* EXEPACKTEMP.EXE SHUFFLE.EXE 

•* 

***************************************** 



Fig. 1: sourcetekst van SHUFFLE ASM 
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CR 


EQU 


ODH 


;ASCII carriage return 


LF 


EQU 


OAH 


;ASCII line feed 


TAB 


EQU 


09H 


;ASCII TAB code 


BLANK 


EQU 


20H 


;ASCII space code 


COMMAND 


EQU 


80H 


;biiffer for command tail 


B SIZ 


EQU 


16384 


;size of records 


OUTPUT HANDLE 


EQU 


1 


;liandle of standard output device 


ERROR_HANDLE 


EQU 


2 


;liandle of standard error device 


CSEG 


SEGMENT 


PARA PUBLIC 'CODE' 






ASSUME 


CS:CSEG,DS:DATA,ES:DATA,SS:STACK 



SHUFFLE 



SHUFFLEl: 



* 

* Start of program. Test for correct 

* DOS version, because SHUFFLE uses 

* 'handle caUs' not available in 

* DOS 1.x. 

* 



PROC 


FAR 




PUSH 


DS 


;save DSrOOOO for final 


XOR 


AX,AX 


;retum to DOS in case 


PUSH 


AX 


;function 04CH cannot be used 


MOV 


AX,SegDATA 


;make our own data segment 


MOV 


ES,AX 


;accesible via ES register 


MOV 


AH,030H 


•jCheck version 


INT 


21H 


;ofDOS 


CMP 


AL,2 


;if version 1.X 


JAE 


SHUFFLEl 




MOV 


DX,OffsetDOS ERR 


;point to DOS 1.X error message 


PUSH 


ES 


;point DS 


POP 


DS 


;to data segment 


MOV 


AH,9 


;cannot use modern function here 


INT 


21H 


;print message 


RET 




;and exit to caller 



***************************************** 

'* 

;* Read output file name from input 
;* buffer. 

;* 

***************************************** 

CALL GET FILENAME ;get path and file name spec 

PUSH ES ;point DS 

POP DS ;to own data segment 

JNC SHUFFLE2 ;if no error, proceed 

MOV DX,Offset SIGN_ON ;point to description message 

MOV CX,SIGN_ON_LENGTH ;get length 

JMP SHUFFLE16 ;and print message 

***************************************** 

;* 

;* Create the input file names. 
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* 


SHUFFLE2: 


CLD 




;set direction forward 




MOV 


DI,Offset INL_NAME 


;point DI to output name low 




CALL 


MAKEINNAME 


;create input file name low 




JC 


SHUFFLES 


;if no usable file name, exit with error 




MOV 


AX,'OL' 


;else get extention 




STOSW 




;move too 




XOR 


AL^ 


;get a zero 




STOSB 




;and terminate inputname low 




MOV 


DI,OffsetINH NAME 


;and DI to output name high 




CALL 


MAKE INNAME 


;create input fiile name hi 




MOV 


AX/IH' 


;get extention 




STOSW 




;move too 




XOR 


AL^ 


;get a zero 




STOSB 




;and terminate inputname high 






******** 


:)c:|:**4:*************************** 






* Try to open the .LO input file. 








**************************************** 




MOV 


DX,Offset INL_NAME 


;point DX to filename, even 




CALL 


OPEN INPUT 


;try to open input file, even 




JNC 


SHUFFLE4 


;if OK, proceed 


SHUFFLES: 


MOV 


DX,Offset FCLE NT FND ;point to message 




MOV 


CX,FILE NT FND_L 


;get length 




JMP 


SHUFFLE16 


;and print message 






**************************************** 






* Try to open the .HI input file. 

* 










******************************** 




MOV 


INL HANDLER 


;store handle number 




MOV 


DX,Offset INH_NAME 


;point DX to filename, odd 




CALL 


OPEN INPUT 


;try to open input file, odd 




JC 


SHUFFLES 


;if error, print it 




MOV 


INH HANDLEAX 


;store handle number 






**************************************** 






* Get length of input files. Print a 








* warning 


if the files hold different 








* numbers of bytes. 








**************************************** 




MOV 


BX,INL HANDLE 


;get handle 




CALL 


GET HLE LENGTH 


;get input file length, even file 




JC 


SHUFFLES 


;if error exit with message 




MOV 


INL SIZEH,DX 


;else save MSW 




MOV 


INL SIZEL^X 


;andLSW 




MOV 


IN SIZEH,DX 


;and in longest length 




MOV 


IN SIZELAX 


;do high too 




MOV 


BX,INH HANDLE 


;get handle 




CALL 


GET FILE LENGTH 


;get input file length, odd file 




JC 


SHUFFLES 


;if error exit with message 




MOV 


INH SIZEH,DX 


;else save MSW high 




MOV 


INH SIZEL^X 


;andLSWhigh 




CMP 


INL SIZEH,DX 


;if high lengths differ 
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Txrc 


l^riJN (jr 1 rl_ JJ JLr r 


jget highest as count 




CMP 


TNT ST7FT AX 


•if low IpTICrthQ <IJHTIP 




JE 


SHUFFLE6 


;proceed 


LENGTH_DIFF: 


JA 


PR DIFF LENGTH 


;if longest stored now, print message 




MOV 


IN SIZEH,DX 


;else store new longest length 




MOV 


IN SIZEL^ 


;do high too 


PR_DIFF_LENGTH: 


MOV 


DX,Offset DIFF 


;point to Tile lengths differ 




MOV 


CX,DIFF LENGTH 


;get length 




CALL 


WRITE STD 


;print message 




JMP 


Short SHUFFLE6 


;and proceed 


SHUFFLES: 


MOV 


DX,OffsetMSG4 


;point to 'Input file(s) is/are empt/ 




MOV 


CX,MSG4 LENGTH 


;get length 




JMP 


SHUFFLE15 


;and print message 








;* Create the output file. 





SHUFFLE6: 



SHUFFLE6A: 
SHUFFLE?: 



SHUFFLE7A: 



SHUFFLE7B: 



SHUFFLES: 
SHUFFLE9: 



MOV DX,Offset OUT_NAME ;get file name address 

MOV AL,1 ;access is write 

MOV CX,0 ;normal attribute 

MOV AH,03CH ;createfile 

INT 21H ;viaDOS 

JNC SHUFFLE? ;if no error, proceed 

JMP SHUFFLE14 ;and print message 

MOV OUT_HANDLE,AX ;else save handle 

* 

* Read 1st block of input file .LO 

* into even input buffer. Check if DOS 

* returns an error. If so, report 

* empty input file. 

* 

CALL READ_BLOCK_L ;read 1st block of data 

JNC SHUFFLE?B ;if OK, proceed 

MOV DX,Offset MSG4 ;point to 'Input file is empty' 

MOV CX,MSG4_LENGTH ;get length 

JMP SHUFFLE14 ;and print message 

* 

* Read 1st block of input file .HI 

* into odd input buffer. Check if DOS 

* returns an error. If so, report 

* empty input file. 

* 

CALL READ_BLOCK_H ;read 1st block of data 

JC SHUFFLE?A ;if error, report 'Input file is empty* 

* 

* Perform the actual shuffle. 

* 

**************************************** 

MOV Word Ptr OUT_PTR,0 ;reset output byte counter 

MOV AX,INL_SIZEH ;get byte count even high 

OR AX,INL_SIZEL ;if through, pad a zero 
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PADLO: 
FILL LO: 



SHUFFLEIO: 



PAD_HI: 
FELL HI: 



SHUFFLEll: 



SHUFFLE12: 



JE 


FTLLLO 


CALL 


GETCHARL 


JC 


PADLO 


DEC 


INLSIZEL 


JNE 


FILLLO 


MOV 


DI,INL_S1ZLH 


OR 


DI,DI 


JE 


FILLLO 


DEC 


INLSIZEH 


JMP 


Snort FILL LO 


MOV 


AL,0 


MOV 


DI,Offset OUT BUr 


MOV 


BX,OUT_PTR 


MOV 


[DI + BX],AL 


INC 


OUTPTR 


MOV 


AX,INH_SIZEH 


OR 


AX,INH_SI2^L 


JE 


PAD_HI 


CALL 


Cjii 1 CrlAK_Jtl 


JC 


rAiJ_xll 


DEC 


TXTXT CT' 7 Li'T 

1NH_S1Z11L 


JNE 


"CTTT T UT 


MOV 


T^T TX1XJ Ql'7'CTJ 


OR 


D1,D1 


JE 


rli-rJL rll 


DEC 


lJNrl_olZ.±irl 


JMP 


hnort rlL.JL_rll 


MOV 


AT r\ 
AL,U 


MOV 


ui,unsei LIU i_i3ur 


MOV 


BXjOU l_r IK 


MOV 




INC 


UU 1 rlK 


INC 


BX 


DEC 


IN SIZEL 


JNE 


SHUFFLEll 


MOV 


DI,INH SIZEH 


OR 


DI,DI 


JE 


SHUFFLE12 


DEC 


INH SIZEH 


CMP 


BX,B SIZ 


JNE 


SHUFFLE9 


CALL 


WRITE_BLOCK 


JMP 


SHUFFLE8 



********************************* 
* 

* Longest input file complety read. 

* Flush data remaining in output 

* buffer in output file. 
* 

**************************************** 



;and put in buffer 

;else read a byte from even input 

iif error, pad buffer 

;else count input bytes 

;if even low zero, 

;get even hi 

;if zero too 

;write last even byte 

;else adapt count hi 

;and put even byte in buffer 

pad entry, get a zero 

;get buffer address 

;get buffer offset 

;put byte in buffer 

iadapt output byte counter 

;get byte count high 

;if through, pad a zero 

;and put in buffer 

;else read 1 byte from odd input 

;if error, pad buffer 

;else count input bytes 

;if odd low zero, 

;get odd hi 

;if zero too 

;write last odd byte 

;else adapt coimt hi 

;and put odd byte in buffer 

;pad entry, get a zero 

;get buffer address 

;get buffer offset 

;put byte in buffer 

;adapt output byte counter 

;andBX 

;count input bytes low (longest) 
;if longest low zero, 
;get longest hi 
if zero too 

;write remaining bytes 
;else adapt count hi 
;if buffer not full yet 
continue to fill 
else write buffer to file 
and loop 
******* 



CALL WRITE_BLOCK 

MOV BX,INL_HANDLE 

CALL CLOSE_INPUT 

MOV BX,INH_HANDLE 

CALL CLOSE_INPUT 

CALL CLOSE_OUTPUT 

MOV DX,OffsetMSG5 



;else write output file 

;get file handle 

;close input file, even 

;get file handle 

;close input file, odd 

;close output fiile 

;point to 'SHUFFLE succesful.' 
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SHUFFLE14: 



SHUFFLE15: 



SHUFFLE16: 



MOV CX,MSG5_LENGTH 

CALL WRITE_STD 

MOV AX,04C00H 

INT 21H 



;get length 
print message 
command is exit DOS 
with error level 0 



* 

* Error exit: problem with output 

* file. Report problem through error 

* output handle and close all files. 

* 

CALL CLOSE OUTPUT ;close output file 

MOV DX,Offset WR_ERR ;point to 'Error writing output file' 

MOV CX,WR_ERR_LENGTH ;get length 

**************************************** 

* 

* Error exit: problem with input file. 

* Report problem through error output 

* handle and close the file. 
* 

**************************************** 



PUSH 


BX 




PUSH 


CX 




PUSH 


DX 




MOV 


BXJNL HANDLE 


;get file handle 


CALL 


CLOSE INPUT 


;close input file, even 


MOV 


BX,INH HANDLE 


;get file handle 


CALL 


CLOSE INPUT 


;close input file, odd 


POP 


DX 




POP 


CX 




POP 


BX 




***************************************** 


;* Error exit: problem with input file 




;* name. 


Report problem through error 




;* output handle. 
•* 




•******^ 


********************************* 


CALL 


WRITE ERROR 


;write error message 


MOV 


AX,04C01H 


;exit to DOS 


INT 


21H 


;with error level 1 



SHUFFLE 



ENDP 



GET FILENAME 



**************************************** 
* 

* Move output file description to 

* internal buffers, stripping it from 

* spaces and TAB characters. 

* If no filename is found, an error is 

* flagged. 
* 

**************************************** 
PROC NEAR 

MOV SI,Offset COMMAND ;point SI to command hne 

MOV DI,Offset OUT NAME ;point DI to buffer for name 

CLD ;set direction forward 
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LODSB 




get length byte 




OR 


AL^ 


if no name 




JE 


GET_FILENAME5 ; 


exit with error 


GET_FILENAME1: 


LODSB 




else get command line byte 




CMP 


AL,CR 


if carriage return 




JE 


GET FILENAMES ; 


exit with error 




CMP 


AL,BLANK ; 


if space 




JE 


GET FILENAMEl ; 


get next character 




CMP 


AL,TAB 


if TAB 




JE 


GETFILENAMEl 


get next character 


GET FILENAME2: 


STOSB 




else store file name character 


GET_FILENAME3: 


LODSB 




get next 




CMP 


AL,CR 


if last 




TF 


GET FILENAME4 


,exit without error 




CMP 


AL,BLANK 


,if space 




JE 




•skip it 




CMP 


AL,TAB 


•if not TAB 




JNE 


GET_FILENAME2 


;store and get next character 


GET_FILENAME4: 


CLC 




;flag no error 




RET 




;and exit 


r^Tonr tttt "CMAXyfTH^* 
CjJlI 1 r li^iiJN AJVlxl-) . 


STC 




;flag error 




RET 




;and exit 


GET_FILENAME 


ENDP 












*************************** 


******* 






* 

* Open 


input file. If an error occurs, 








* carry 


will be set. DX points to file 








* name 


to open. AX holds handle if 








* the file open was succesful. 










*************************** 


******* 


OPENINPUT 


PROC 


NEAR 


;file is read only 




MOV 


AL,0 




MOV 


AH,03DH 


;open handle 




INT 


21H 


;callDOS 




RET 




;and exit 


OPENJNPUT 


ENDP 










• 4: 4: 4« * 4: 


*************************** 


******* 






•* 

;* Reac 


file length of input file. If 








;* an error occurs carry will be set. 








******* 


********************************** 


GET_FILE_LENGTH 




PROC 


NEAR 


;save it on stack 






PUSH 


BX 






MOV 


AL,2 


;get end file position 






MOV 


AH,042H 


;move file pointer 






XOR 


DX,DX 


;get zero 






XOR 


CX,CX 


;offset 






INT 


21H 


;get file ler^h 






POP 


BX 


;get handle back 






JC 


LENGTH^^ERROR 


;if error exit 






PUSH 


DX 


;else save MSW 






PUSH 


AX 


;andLSW 






MOV 


AL,0 


;get begin file position 
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LENGTHERROR: 
GET FILE LENGTH 



MOV 


AH,042H 


;move file pointer 


XOR 


DX,DX 


;get zero 


XOR 


CX,CX 


;offset 


INT 


21H 




POP 


AX 


;get length low in AX 


POP 


DX 


;and length high in DX 


RET 




;and exit 


ENDP 







**************************************** 



i* Create output file name. The input 
;* file name string is copied to a 
;* buffer upto the end, or the period 
;* at the start of extension. The new 
;* name string is terminated with a 
;* period. 
I* 

**************************************** 



MAKEINNAME 


PROC 


NEAR 






CLD 




;set direction forward 




MOV 


SI,Offset OUT_NAME 


;point SI to output name buffer 




LODSB 




;get character 




CMP 


AL,'.' 


;if 1st is not a period 




JNE 


MAKE_NAME3 


;parse input string 




STOSB 




;else store character 


MAKENAMEl: 


LODSB 




;get next 




STOSB 




;move to buffer 




OR 


AL^AL 


;if at end now 




JE 


MAKE_NAME5 


;exit 




CMP 


AL/\' 


;if not backslash 




JNE 


MAKE_NAME1 


;loop 


MAKE_NAME2: 


LODSB 




;get next character 




CMP 


al;: 


;if at period of extension 




JE 


MAKE_NAME4 


;stop now 


MAKE_NAME3: 


STOSB 




;else move character 




OR 


AL^AL 


;if not at end now 




JNE 


MAKE NAME2 


;loop 




MOV 


al;.' 


;else get period 


MAKE_NAME4: 


STOSB 




;in output name 




CLC 




;flag no error 




RET 




;and exit 


MAKE_NAME5: 


STC 




;flag error 




RET 




;and exit 


MAKE INNAME 


ENDP 







CLOSE INPUT 



**************************************** 
* 

* Close input file. If an error occurs 

* carry wiU be set. 

* 

**************************************** . 
PROC NEAR 
PUSH AX 
PUSH BX 

MOV AH,03EH ;close handle 

INT 21H 
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CLOSE INPUT 



CLOSE OUTPUT 



CLOSE OUTPUT 



GET_CHAR L 
GET CHARLl: 



GET CHARL2: 



GET CHAR L 



POP 
POP 

RET 
ENDP 



BX 
AX 



land exit 



**************************************** 
* 

* Close output file. If an error 

* occurs, carry will be set. 

* 

**************************************** 



PROC 


NEAR 




PUSH 


AX 




PUSH 


BX 




MOV 


BX,OUT HANDLE 


;get file handle 


MOV 


AH,03EH 


;close handle 


Bsn 


21H 




POP 


BX 




POP 


AX 




RET 




;and exit 


ENDP 







**************************************** 
* 

* Get character fi*om the even input 

* file buffer. If the buffer is empty, 

* it will be filled by reading from 

* disk. 

* If the input file is completely read 

* carry will be set. 

* 

**************************************** 



PROC 


NEAR 




PUSH 


BX 


;save BX 


MOV 


BX,INL PTR 


;get current buffer address 


CMP 


BX,B 


;if not through 


JNE 


GET CHARL2 


;get character from buffer 


MOV 


INL PTR,0 


;else zero buffer address 


CALL 


READ BLOCK_L 


;read in next block 


JNC 


GET CHARLl 


;if no error, loop 


POP 


BX 


;restore BX 


RET 




;else exit 


MOV 


AL,[INL BUFFER + BX] ;get buffer character 


INC 


INL PTR 


;adapt buffer address 


POP 


BX 


;restore BX 


CLC 




;flag no error 


RET 




;and exit 


ENDP 







**************************************** 
* 

* Get character from the odd input 

* file buffer. If the buffer is empty, 

* it wiU be filled by reading from 

* disk. 

* If the input file is completely read 

* carry wiU be set. 
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GET_CHAR_H 
GET CHARHl: 



GET CHARH2: 



GET CHAR H 



READ BLOCK L 



READ BLOCK L 



READ BLOCK H 



;* 

***************************************** 


PROC 


NEAR 




PUSH 


BX 


;save BX 


MOV 


BX,INH PTR 


;get current buffer address 


CMP 


BX,B SIZ/2 


;if not through 


JNE 


GET CHARH2 


;get character from buffer 


MOV 


INH PTR,0 


;else zero buffer address 


CALL 


READ BLOCK H 


;read in next block 


JNC 


GET CHARHl 


;if no error, loop 


POP 


BX 


;restore BX 


RET 




;else exit 


MOV 


ALJINH BUFFER + BX] ;get buffer character 


INC 


INH PTR 


;adapt buffer address 


POP 


BX 


;restore BX 


CLC 




;flag no error 


RET 




;and exit 


ENDP 








;* Fill the even input buffer by 




;* reading from the .LO input file from 




;* disk. If the file is read up to the 




;* end, carry will be set. 
•* 




********************************* 




PROC 


NEAR 




MOV 


BX,INL HANDLE 


;get file handle 


MOV 


DX,Offset INL_BUFFER ;get buffer address 


CALL 


READ_BLOCK 


;read block of data 


MOV 


INL_PTR,0 


;zero buffer pointer 


RET 




;and exit 


ENDP 







**************************************** 
* 

* Fill the odd input buffer by reading 

* from the .HI input file from disk. 

* If the file is read up to the end, 

* carry will be set. 
* 

**************************************** 



READ BLOCK H 



PROC 

MOV 

MOV 

CALL 

MOV 

RET 

ENDP 



NEAR 

BX,INH_HANDLE ;get file handle 
DX,Offset INH_BUFFER ;get buffer address 
READ__BLOCK ;read block of data 

INH_PTR,0 ;zero buffer pointer 

;and exit 



**************************************** 
* 

* Fill an input buffer by readii^ an 

* input file from disk. If the file is 

* read up to the end, carry will be 

* set. 
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;* 






READBLOCK 


PROC 


NEAR 






MOV 


CX,B SIZ/2 


;get byte count 




MOV 


AH,03FH 


;read from handle 




INT 


21H 






OR 


AX,AX 


;if any read in 




JNZ 


READ BLOCKl 






STC 




;else flag error 


READ BLOCKl: 


RET 




;and exit 


READ BLOCK 


ENDP 







WRITE BLOCK 



WRITE BLOCK 



**************************************** 
* 

* Write current output buffer to the 

* output file. If an error occurs 

* carry wiU be set. 

* 

**************************************** 
PROC NEAR 

MOV BX,OUT_HANDLE ;get file handle 

MOV CX,OUT_PTR ;and byte count 

MOV DX,Offset OUT^BUF 

MOV AH,040H ;write to handle 

INT 21H 

RET ;and exit 

ENDP 



WRITE STD 



WRITE STD 



**************************************** 
* 

* Write to the standard output device. 

* This output can be redirected. 

* 

**************************************** 
PROC NEAR 



MOV BX,OUTPUT_HANDLE 

MOV AH,40H 

INT 21H 

RET 

ENDP 



get handle 
;\vrite to handle 

iand exit 



WRITE ERROR 

WRITE_ERROR 
CSEG 



**************************************** 
* 

* Write to the standard error device. 

* This output can not be redirected. 
* 

**************************************** 
PROC NEAR 

MOV BX,ERROR_HANDLE ;get handle 

MOV AH,40H ;write to handle 

21H ; 

;and exit 



INT 
RET 
ENDP 



ENDS 

***************************************** 
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DATA 



* Work and buffer area. 

* 

**************************************** 
SEGMENT PARA PUBLIC 'DATA' 



INL NAME 


DB 


64 


INL HANDLE 


DW 


0 


INL PTR 


DW 


0 


INL SIZEH 


DW 


0 


INLSIZEL 


DW 


0 


INH NAME 


DB 


64 


INH HANDLE 


DW 


0 


INH PTR 


DW 


0 


INH SIZEH 


DW 


0 


INH_SIZEL 


DW 


0 


IN SIZEH 


DW 


0 


INSIZEL 


DW 


0 


OUT NAME 


DB 


64 


OUT HANDLE 


DW 


0 


OUT PTR 


DW 


0 




•****> 


:******** 




•* 





INLBUFFER 
INHBUFFER 
OUT BUF 



**************************************** 
* 

* Buffers for file names. 

* 

**************************************** 

^ (0) ;buffer for input name, even bytes 

;buffer for handle number 
;pointer into input buffer, even 
;file length, hi word 
;file length, lo word 

' (0) ;buffer for input name, odd bytes 

;buffer for handle number 
;pointer into input buffer, odd 
;file length, hi word 
;file length, lo word 

;longest input file length, hi word 
;longest input file length, lo word 

> (0) ;buffer for output name 

;buffer for handle number 
;pointer into output buffer 



* Buffers for data processing. 

* 

**************************************** 

DB B_SIZ/2 DUP (?) ;input buffer for DOS read, even 

DB B_SI272 DUP (?) ;input buffer for DOS read, odd 

DB B_SIZ DUP (?) ;output buffer 



SIGN ON 



**************************************** 
* 

* Text messages. 

* 

**************************************** 
DB CR,LF,'SHUFFLE Vl.O' 

DB CR,LF,CR,LF,'by NdV, (C)1990 KIM Gebruikersclub Nederland' 

DB CR,LF 

DB CR,LF,'Shuffles two input files into one output file.' 

DB CR,LF,'One input file (extension .LO) will suppl/ 

DB CR,LF,'all even bytes in the output file, the other' 

DB CR,LF,'input file (extension .HI) will supply all' 

DB CR,LF,'even bytes.' 

DB CR,LF,'The input files inherit their path and name' 

DB CR,LF,'from the output file, but will have the' 

DB CR,LF,'extensions .LO and .HI by default.',CR,LF 

DB CR,LF,'Usage: SHUFFLE [d:][path]outfilename[.ext]',CR,LF 
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MSG2 

SIGN_ON_LENGTH 
MSG2_LENGTH 


DB 

EQU 
EQU 


CR,LF,'The output file name is missing.',CR,LF 
$-SIGN_ON 


FILE_NT_FND 
FILENTFNDL 


DB 


CR,LF,'Caimot find input file(s).',CR,LF 

C" 171 1 "C XFT TTNJT^ 

Ib-rli^ii JNl_riNi-' 


DOS_ERR 


DB 
DB 


CR,LF,'Incorrect DOS version, must be DOS 2.0' 
CR,LF,'or higher.',CR,LF,'$' 


MSG4 

MhCj4_J_.liJNCj 1 rl 


DB 


CR,LF,'Nothing to do: input file(s) is/are empty! ',CR,LF 

ih-JVlovj'i- 


MSGS 

■KiTC/^C T 'DXT/^nrXT 

MciCjD_LiiJN(j 1 rl 


DB 

"CTM T 


CR,LF,'SHUFFLE succesfully completed.',CR,LF 


ULrr 

JL'JLrr' J-fHiNLJlxl. 


UD 

DB 
DB 
DB 

EQU 


T F 'WARNING* The two inout files hold different' 
CR,LF,'numbers of bytes. The output file will be' 
CR,LF,'twice the length of the longest input file,' 
CR,LF,'and the missing bytes will be zeroed.',CR,LF 
$-DIFF 


WR_ERR 

W Jtv H-K-Jv L-(XlIN KJ 1 rl 


DB 

EQU 


CR,LF,'Error writing output file.',CR,LF 
$-WR_ERR 




ENDS 










;* 

;* The stack. 




STACK 


> 

***************************************** 
SEGMENT PARA STACK 'STACK' 




DB 


64DUP (?) 


STACK 


ENDS 






END 


SHUFFLE 



Te koop 

in verband met aanschaf nieuwe machine: 
ATARI ST520 + 

• Geheugen 1 MByte 

• T0514 

• SS-drive 

• muis 

• scherm ATARI ST124 
Vraagprijs / 550,- 



Te koop 

aantal sets 

68030 + 68882 {fiP met co-processor) 

• Maximale frequentie: 50 MHz. 

• Splintemieuw en met garantie! 

Prijs:/400,- 

EmstElderenbosch, tel: 020 ' 6125386. 



Jan Vemimmen, tel.: 02990-21739 



Vereniging 



Van de bestuurstafel 



De bestuurstafel stond deze keer in Overloon. Een 
plaatsje dat ergens achter Zeeland ligt. Na een har- 
telijk ontvangst en even bijpraten zijn we toen maar 
met de vergadering begonnen. Volgens de penning- 
meester had vrijwel iedereen z'n contributie betaald. 
Zo positief kon de redactie van ons lijfblad niet zijn. 
Het tekort aan copy doet ons binnenkort waarschijn- 
lijk naar noodmaatregelen grijpen. Een van die 
noodmaatregelen zou kunnen zijn dat we ter vulling 
maar eens het getalletje PI afdrukken. Volgens de 
laatst bekende gegevens wordt het dan toch nog een 
behoorUjk dikke P Kenner. Het 68k project zat met 
het probleem dat het in gebruik zijnde takenpakket 
en router te klein was om een goede lay-out te ma- 
ken voor de printboer. De projectleider en uw voor- 
zitter hebben inmiddels een hoopvol gesprek 
gevoerd met een leverancier van een pakket dat dat 
wel aan kan. In de toekomst zou het zelfs voor ande- 
re projecten gebruikt kun- 
nen worden. We houden u 
op de hoogte. Ons BBS 
draait nu met drie Ujnen en 
is daardoor nu beter bereik- 
baar dan ooit daarvoor. We 
vonden het als bestuur toch 
wel jammer dat er geen le- 
den hebben gereageerd op 
de functie voor PR-mede- 
werker. Als dit u op andere 
gedachten brengt neem dan 
even contact op met een van 
de bestuursleden. We zullen 
dat zeker op prijs stellen. De 
vereniging beschikt thans 
over een creditcard. JulUe 
horen binnenkort hoe de re- 
gels voor het gebruik door 

leden gaan worden. Uiteraard zal e.e.a. via de pen- 
ningmeester lopen. Als je denkt nu al dringend van 
dat ding gebruik te moeten maken, neem dan eens 
contact met hem op. Vanuit de regio Enschede werd 
gevraagd of er geen regionale bijeenkomsten geor- 
ganiseerd konden worden. Het bestuur staat daar 
niet afwijzend tegenover. Zij die dat willen organise- 
ren worden verzocht om contact met het bestuur op 
te nemen, zodat dat onder de vlag van de KGN kan. 

Op de bijeenkomst in Geldrop stond het verslag van 
de kascontrolecommissie ter behandeling. Helaas 



Het tekort aan copy doet 
ons waarschijniijk naar 
noodmaatregelen 
grijpen. Een van die 
noodmaatregelen zou 
kunnen zijn dat we ter 
vulling maar eens het 
getalletje PI afdrukken. 



konden de heren Steunenberg en Herlaar daarbij 
niet aanwezig zijn. Enkele opmerkingen uit verslag 
zijn: 

— Bewondering voor de professionele wijze waar- 
op de boekhouding gevoerd wordt; 

— Een compliment aan de vrouw van de penning- 
meester, omdat zij hem met raad en daad bij- 
staat; 

— De financiele inhoud klopt tot op de cent nauw- 
keurig. 

Met andere woorden: zij hebben de boekhouding 
over 1991 dan ook goedgekeurd. 

De aanwezige leden hebben zich daar unaniem bij 
aangesloten. Namens het bestuur wil ik de beide he- 
ren bedanken voor de voortreffeHjke manier waarop 
zij hxm taak hebben volbracht. 

Leden die in Geldrop niet 
aanwezig waren hebben de 
voordracht van Adri Hankel 
gemist. Het woord gemist 
zou eigerdijk in hoofdletters 
moeten worden geschreven. 
De uiteenzetting die Adri 
gaf, over single chips, blonk 
uit door duideUjkheid en was 
zeer interessant. Zijn uitleg 
was een voorbereiding op de 
werking van SIMON, een se- 
riele interface monitor. Bin- 
nenkort kunnen we hierover 
meer verwachten in dit lijf- 
blad. Van de aanwezigen 
heb ik gehoord dat ze daar 
met spanning naar uit zullen 
zien. JulUe voorzitter doet 
dat zeker. Adri heeft bij mij in ieder geval de sol- 
deerhonger weten op te wekken. 

Zo het is weer laat geworden. Dat betekend dat de 
woorden steeds moeiUjker aan mijn brein ontsprui- 
ten en dat het gapen steeds meer toeneemt. BUjft 
over dat ik hoop julhe op 23 mei te mogen begroeten 
in Ahnere-Stad. 

Jullie hongerende voonitter 
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Informatie 

De /^P Kenner (De microprocessor Kenner) is een 
uitgave van de KIM gebrnikersclub Nederland. De- 
ze veremging is voUedig onafhankelijk, is statutair 
opgericht op 22 jiini 1978 en ingeschreven bij de Ka- 
mer van Koophandel en Fabrieken voor Hollands 
Noorderkwartier te Alkmaar, onder nummer 
634305. Het gironummer van de vereniging is 
3757649. 

De doelstellingen van de vereniging zijn sinds 1 ja- 
nuari 1989 als volgt geformuleerd: 

— Het vergaren en verspreiden van kennis over 
componenten van microcomputers, de micro- 
computers zelf en de bijbehorende systeemsoft- 
ware. 

— Het stimuleren en ondersteunen van het gebruik 
van micro-computers in de meer technische toe- 
passingen. 

Om deze doelstellingen zo goed mogelijk in te vul- 
len, wordt onder andere 5 maal per jaar de Ken- 
ner uitgegeven. Verder worden er door het bestuur 
per jaar 5 landelijke bijeenkomsten georganiseerd, 
beheert het bestuur een Bulletin Board en wordt er 
een softwarebibliotheek en een technisch forum 
voor dediverse systemen in stand gehouden. 

Landelijke bijeenkomsten: 

Deze worden gehouden op bij voorkeur de derde 
zaterdag van de maanden januari, maart, mei, Sep- 
tember en november. De exacte plaats en datimi 
worden steeds in de ywP Kenner bekend gemaakt in 
de rubriek Uitnodiging. 

Bulletin Board: 

Voor het uitwisselen van mededelingen, het stellen 
en beantwoorden van vragen en de verspreiding van 
software wordt er door de vereniging een Bulletin 
Board beschikbaar gesteld. 
Het telefoonnummer is: 053-328506 of 053-303902 . 

Software Bibliotheek en Technisch Forum: 

Voor het beheer van de Software Bibhotheek en 
technischeondersteuning streeft het bestuur emaar 
zgn. systeemcoordinators te benoemen. Van tijd tot 
tijd zal in de //? Kenner een overzicht gepubliceerd 
worden. Dit overzicht staat ook op het Bulletin 
Board. 

Correspondentie adres 

Alle correspondentie betreffende verenigingszaken 
kan gestuurd worden aan: 

KIM Gebruikersclub Nederland 
Postbus 1336 
7500 BH Enschede 



Het Bestuur 

Het bestuur van de vereniging wordt gevormd door 
een dageUjks bestuur bestaande uit een voorzitter, 
een secretaris en een penningmeester en een viertal 
gewone leden. 

Tonny Schaffer (voorzitter) 
Paul Kriigerstraat 27 
7532 PW Enschede 
Telefoon 053-613678 

Jacques H.G.M. Banser (penningmeester) 
Haaksbergerstraat 199 
7513 EM Enschede 
Telefoon 053-324137 

Gert van Opbroek (secretaris) 
Bateweg 60 
2481 AN Woubrugge 
Telefoon 01729-8636 

Joost Voorhaar (redactie /<P Kenner) 
Jekerstraat 67 
7523 VP Enschede 
Telefoon 053-333483 

Jan D J. Derksen (DOS65 coordinator) 
Verfailleweg 434 
1783BPDenHelder 
Telefoon 02230-28168 

Geert Stappers (KGN/68k coordinator) 
Engelseweg 7 
5825 BT Overloon 
Telefoon 04788-1279 

Ereleden: 

Naast het bestuur zijn er een aantal ereleden, die 
zich in het verleden bijzonder verdiensteHjk voor de 
club hebben gemaakt: 

Erevoorzitter: 
Siep de Vries 

Ereleden: 

Mevr. H. de Vries-van der Winden 

Anton Muller 

Rinus Vleesch Dubois 
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